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Einführung in den J^lesoft-Interpreter 


Nach dem Einschalten des Ccnjjuters führt der Monitor eine Resetroutine 
durch und veranlasst das Booten von DOS, falls ein Disk-Drive vorhanden 
ist. Die Kaltstartroutine initialisiert sodann die notwendigen Zero-Page- 
Adressen und den Stack, und führt schliesslich eigpi Sprung zur Warmstart- 
Adresse $D43C durch. Dies ist nun der Grundzustand. 

Die Warmstart-Routine erwartet nun eine Eingabezeile. Dies geschieht über 
die Monitor-Routine GEJTIU. Bei Rückkehr von dieser Routine steht der 
eingegebene Text iiti Textpuffer ab $0200 und kann ausgevertet verden. 

War das erste Zeichen eine Ziffer, so wird die eingegebene Zeile als neue 
Prograitmzeile interpretiert. Die Zeile wird dann kodiert, d.h. erkannte 
Keywords werden durch die zugehörigen Tokens ersetzt. Im bestehenden 
Programmtext wird an der richtigen Stelle Platz für die neue Zeile 
geschaffen, und diese dort eingefi^. Nachdem die Linkadressen in Programm 
neu berechnet worden sind, erfolgt wieder ein Sprung zum Warmstart. 

War das erste Zeichen keine Ziffer, so wird die eingegebene Zeile als 
Befehlszeile aufgefasst. Es werden dbenfalls die Befehlswörter kodiert, 
es erfolgt dann aber ein Sprung zur Interpreter-Schleife. 

Wird ein Programm durch RUN gestcurtet, so wird es ebenfalls von der 
Interpreter-Schleife ausgeführt. 

Die Interpreter-Schleife bestiiimt aufgrund des Tokens die Adresse der 
zugehörigen Routine und ruft diese auf. Nach Rückkehr in die Interpreter- 
Schleife wird das nächste Token ausgevrertet usw. bis die Befehlszeile 
bzw. das Programm ganz abgecurbeitet ist. 

In diesem Fall erfolgt ein Sprung zurück zur Warmstart-Routine. 

Es folgt nun eine Beschreibung wesentlicher Routinen und Strukturen, 
die das Verständnis des kcmmentierten Interpreter-Listings erleichtern 
sollen. 


Speicheraufteilung 


0000 - OOFF 
0100 - OlFF 
0200 - 02FF 
0300 - 03CF 
03D0 - 03FF 
0400 - 07FF 

0800 - HFFF 


Zerc^ge, enthält Flags und Adressen für den Interpreter 
Stack 

Eingabepuffer, hier legt GBITN die Eingabezeile ab 
frei 

zusätzliche Vektoren, vor allem für DOS 
Bildschirmspeicher für TEXT und lORES-Grafik, Pagel 
ausserdem noch 64 Byte für die Steckkarten 
freies RAM, das sich wie folgt aufteilt: 


Programmtext, Zeiger auf dessen Anfang = 67,68 

einfache Variablen, Anfangszeiger = 69,6A 

Feldvariablen, Anfangszeiger = 6B,6C 

unbenutzter Bereich, Anfangszeiger = 6D,6E 

Stringbereich, Anfangszeiger = 6F,70 

Ende +1 des von Basic erreichbaren Speichers = 73,74 


ausserdem noch folgende Bereiche: 

0800 - OBFF TEXT und IDRES-Grafik, Page2 
2000 - 3FFF HIRES-Grafik, Pagel 

4000 - 5FFF HIRES-Grafik, Page2 


9600 - HFFF wird von DOS belegt, falls vorhanden 


COOO 

C800 

DOOO 

F800 


C7FF I/O-Bereich, aufgeteilt auf die Slots und internes I/O 
CFFF Bereich von 2K, der jeder Karte zur Verfügung steht 
F7FF i^lesoft-Interpreter 
IFFF Monitor 
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Liste der Zeropage-Adressen 


00 - 02 
03 - 05 
06 - 09 
OA - OC 
pHi-P0D,0E 
OF 


10 

11 

12 

13 

14 


15 

16 

17 - 19 
1A,1B 
IC 
ID 

1E,1F 

20 

^'^21 

W22,23 > 
')>24,25'i^ 
26,27 ‘^•0 
28 - 2B 
2C,2D 
• 2E,2F 

30 

31 

32 

33 

34,35 

36,37 

38,39 

3A,3B 

3C,3D 

3E,3F 

40 - 45 

46 - 49 

4A,4B 

4C,4D 

4E,4F 

50,51 

52 

53,54 

, 55 - 5D 

5*^,a.i!^^5E,5F 
7-60,61 
62 - 65 
66 

67,68 
69,6A 
6 B,6C 
6 D,6E 


OMP zur Warmstart-Routine 
JMP zur String-Druckroutine 
frei 

OMP zur USR-Routine (nach Kaltstart OMP E199) 
Hilfsregister zum Vergleich einzelner Zeichen 
Anzahl der Dimensionen des letzten Feldes 
Länge einer neuen Basio-Zeile 
Tdken-Zähler bei Befehlskodierung 
DM-Flag 

String-Flag, (FF falls String) 

Integer-Flag (80 falls integer, sonst 00) 
Gsirbage Collection-Flag 
DATA-Flag bei Befehlskodierung 
Flag für Variablenverwaltung! 

00 normale Variablen-Behandlung 
40 Feldvariable (bei STORE, ohne Indices) 

80 keine Integer-Variablen erlaubt 
Eingabe-Flag: 00 = INPUT, 40 = GET, 98 = READ 
Vergleichs-Flag bei Vergleichscperationen 
Hilfsregister für TAN-Berechnung 
frei 

Zeiger bei Grafi)croutinen 
Farbmaske (evtl, invertiert) 

Schrittzähler beim Zeichnen einer Linie 
frei 

Bildschirmfenster, linker Rand 

Breite des Bildschirmfensters 

oberer / unterer Rand des Bildschirmfensters 

horizontale / vertikale Cursorposition 

Zeiger auf Anfang einer Grafikzeile 

Monitor-Register 

Koordinate bei Blockgrafik 

(4cnitor-Register 

Bitmaske für Punkt innerhalb eine Bytes (HGR) 

Mcsiitor-Register 

INVERSE-Flag 

Register für Prcmpt-Zeichen 
Mcmitor-Register 

Vektor für Ausgaberoutine im Monitor 
Vektor für Eingaberoutine ira Monitor 
Monitor-Register für Prograramzeiger 
Anfangsadresse für Cassetten-Routinen 
Endadresse für Cassetten-Routinen 
Maiitor-Register 

Monitor-Ablage für A,X,Y,Status,Stackpointer 

DOS-Register 

frei 

Monitor-Zufallszahl 

Register für Integerzahlen 

Stackpointer des Deskriptoren-Stack 

Zeiger auf obersten Deskriptor im D.-Stack 

Deskriptoren-Stack für nax. 3 DesJcriptoren 

allgemeiner Zeiger 

allgemeiner Zeiger 

Hilfsregister für Multiplikation / Division 
wird bei Division verändert 
Anfang des Prograrmitextes, normal $0801 
ICMEM, = Anfang der einfachen Variablen 
Anfang der Feldvariablen 
Feldvariablen-Ende +1 
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- C 8 
,B9 
C9 - CD 
CE,CP 
DO - D5 
D 6 
D7 
D 8 
D9 

DA,CB 
tx:,DD 
DE 
CB 

EO,a 

E2 

E3 

E4 

E5 

E 6 


A9 


6F,70 
71,72 
73,74 
75,76 
77,78 
79,7A 






7B,7C 
7D,7E 
7F,80 
81,82 
83,84 
85,86 
"^/' 87,88 
87 
89 

e 8A - 8E 
8A,8B 


8 C, 8 D 

8 F 

90 - 92 
93 - 97 
94,95 
96,97 
98 - 9C 
‘99 
''9A 
. 9B,9C 
- 9D - Al 


Anfang des Stringbereichs 

Zeiger bei Stringverwaltung 

HIMEM, = Ende +1 verfügbaren RAM 

attuelle prograitrozeilennuraner 

programmzeile, bei der Unterbrechung erfolgte 

Zeiger auf letzten Befehl (für OMERR etc.) 

7A = EF, falls im Direktmodus 
Zeilennumner des aktuellen DATA-Statanents 
Zeiger auf dieses DATA-Statanent 
Zeig^ bei Eingaberoutine 
Register für letzten Variablen-Namen 
Zeiger\auf zuletzt benutzte Variable 
gemerkter Variablenzeiger bei LBf, NEXT, etc. 
ganerkteir (3IR<3EP^Zeiger bei Eingabeoperation 
Register für Priorität bei num. Ausdrücken 
Vergleichs-Flag 

FAC5 (wird bei Potenzierungsroutine benützt) 

Zeiger auf FN-Definitions-Variable 
Zeiger auf Tcp-String bei Garbage Collection 
Zeiger auf gültigen String-Deskriptor 
Länge einer Variablen im Speicher (3 oder 7) 

OMP-Befehl bei Funktionsaufruf 
EAC3 

Zeiger auf 1. Element einer Feldvariablen ! 
altes Blockende +1 bei Verschiebe-Eoutine 
FAC4 

Hilfsregister ( z.B. bei FACl —> String ) 

Hilfsregister bei String <—> FP-Konstante 

allgemeiner Zeiger 

FACl 

Vorzeichen von FACl 

Hilfsregister (z.B. bei polynomauswertung) 

Hilfsregister für Mantissenverschiebung 
FAC2 

Vorzeichen von Eac2 

Zeiger bei Stringverwaltung 

Konbi-Vorzeichen (verknüpftes Vorzeichen) 

Rundungsstelle für FACl 

Hilfsregister bei Befehlskodierung , / 

Platzlaedarf bei Verwaltung von Feldvariablen . 0 

gemerkter GHRCSET-Zeiger bei VAL-Routine 
Progranmtext-Ende +1 
CHR(ffiT-Routine 
CHRGET-Zeiger 

Register für Zufallszahl bei RtJD 
frei 

Hilfsregister für HGR-Routinen - 
Autostart;-FlM , ■ « s . „ 

frei - () 

ONERR-Flag ’’ 

frei 

progranmzeile, die einen Fehler verursachte 
Zeiger auf den,Befehl Itei dem Fehler auftrat 
Kode des aufgetretenen Fehlers 
gemerkter Stackpointer bei Fehlerbehandlung 
X-Koordinate bei HGR-Routinen 
Y-Koordinate bei B3R-Routinen 
frei 

Farbroaske entsprechend letzten HCOIDR-Befehl 
Spaltenindex eines Punktes in HGR-Routinen 
Page-Flag (20 für Page 1, 40 für Page 2) 
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E7 SCALE-Wert 

E8,E9 Zeiger auf Anfang des Shape-Tables 

EA Collision Counter bei IRAW / XDRAW 

ffi - EF frei 

’FO Hilfsregister für Blockgrafik 

Fl SPEED-wert 

F2 IRACE-Flag 

:F3 FIASH-Flag, =40 bei FLASH, sonst 00 

F4,F5 Zeiger auf gültiges ONERR-Statement 

F6,F7 Programnzeile mit gültigem ONERR-Statanent 

F8 gemerkter Stackpointer 

F9 Rar-Wert 

FA - FE frei '^c. C 

FF wird bei STR$ verändert 


Vektoren in Page 3 

3D0 Sprung zum DDS-Warrastart 

3D3 Sprung zum DOS-Kaltstart 

3D6 Sprung zur DOS-Filemanager-Routine 

3D9 Sprung zur DOS-RWTS-Routine 

3DC Hilfsroutine für Filemanager-Parameter 

3E3 Hilfsroutine für RWTS-Parameter 

3EA Sprung zur Routine, die DOS-I/O-Kanäle setzt 

3EI' Sprung zur Routine, die BRK-B^ehle eines 

Maschinenprogranmes bearbeitet (normal $FAf'9) 
3F2 Sprungadresse bei RESET (für AOTOSTART RDM) 

= Soft Entry Vector 

3F4 Power-up Byte, dient zur Unterscheidung von 
Tastatur-RESET und Power-on-Reset 
3F5 Sprung zur &-Routine. Der Ajplesoft-Befehl 
bewirkt einen Sprung hierher, von.hier dann 
zur Routine. (OMP $FF58 falls nicht benutzt) 
3F8 Sprung zur Monitor-User-Routine. 

(wird bewirlct durch Eingabe von Ctrl Y) 

3FB Sprung zu der Routine, die Iton-Maslcable 
Interrupts bearbeitet 

3FE Adresse der Routine, die Interrupt Reguests 
bearbeitet. Diese Interrupts können durch 
den SEI-Befehl verhindert i^den. 


Interne I/O-Adressen 

COOO Tastatur-Register — 

COlO bewirkt Löschung des Tastatur-Registers 

C020 Flipflop für Cassettenausgang umschalten 

C030 Flipflop für Lautprecher umschalten 

C040 Utility-Strobe am Game-Port auslösen 

C050/C051 GRAPHICS/TEXT-Modus setzen 

C052/C053 NDMIX/lyuX-Modus setzen 

C054/C055 PAGE1/PAGE2 darstellen 

C056/C057 IDRES/HIRES Grafikrtodus setzen 

C058-C05F Register für TTL-Ausgänge ANO - AN3 

C060 Cassetteneingangs-Register (Bit7) 

C061-C063 Register für TTL-Eingänge PBO - PB2 

C064-C067 Register für Analog-Eingänge (Bit7) 

C068-C06F gleich wie C060 - C067 

C070 Mmoflops der Analogeingänge rücksetzen 
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Stack-Organisation 

Der Stack ist ein Speicherbereich von 256 Byte, der durch die 
Assetnblerbefehle EHft/HA md rHP/EIJ> eine sehr elegante Möglichkeit, 
Daten zwischenzeitlich abzulegen, eröffnet, im einzelnen wird er 
wie folgt benutzt: 

Ablage der Rücksprung-Mresse bei Unterprogramra-Aufruf durch JSR 

Kurzzeitiges Retten von Registern, Flags etc. in Assenblerroutinen 

Ablage der RETUBN-Daten bei einer Basic-Anweisung QOSUB: 

CHRGEJT-Zeiger auf QOSÜB-Statement (2 Byte) 

Zeilennummer des QOSCB-Statanents (2 Byte) 

BO als Kennung für REmRS-Daten (1 Byte), insgesamt also 5 Byte 

Ablage der Schleifen-Parameter einer FOR/NEXT-Schleife: 

CHRGET-Zeiger auf 1. Anweisung nach dem FOR-Statement (2 Byte) 
Zeilennunmer der ztgehörigen Programmzeile (2 Byte) 

TO-Wert im Fliesskaana-Format (5 Byte) 

STEP-Wert im Fliesskomma-Format + Vorzeichenbyte (6 Byte) 

Zeiger auf die laufvariable (2 Byte) 

81 als Kennung für POR/NEXT-Daten (1 Byte), insgesamt also 18 Byte 

Ablage der Daten für eine offene Operation bei der Auswertung von 
arithmetischen Ausdrücken; 

Adresse für Rücksprung nach $DDDa »enn Operation fertig (2 Byte) 
Sprungadresse zur Routine, die die Operation ausführt (2 Byte) 
Operand im Fliesskonraa-Format + Vorzeichenbyte (6 Byte) 
Vergleichs-Flag, enthält Vergleichsltode (1 Byte) 

Prioritäts-Flag (1 ^de), insgesamt also 12 Byte 

Übergabe von Parametern an die MT$/MID$/RIGHT$-Routinen: 

Zeiger auf den Deskriptor des Original-Strings 
1. Paraneter, insgesamt 3 Byte 

Übergabe der Indices für die einzelnen Dimensionen bei der Auswertung 
von Feldvariablen 


Die Verwaltung des Stack 

Der Stack-Rjinter ist ein Register in der 6502 CPU, welches als Zeiger 
auf die nächste zu beschreibende Stackposition dient. Bei Ausführung eines 
PHA wird das Byte in diese Position eingetragen, und der Stackpointer auf 
die nächste Position gesetzt, öngekehrt wird bei PLA zunäclist der Stack¬ 
pointer eine Position zurückgesetzt, und das dort stehende Byte geholt. 
Dabei wird der Stack von oben nach unten gefüllt. Bei StadcLnitialisierung 
wird der Stackpointer auf F8 gesetzt. Das erste Byte wird also nach $01F8 
eingetragen, das nächste nach $0lF7 etc. 

In der Routine ab $D3D6 wird geprüft, cb noch mindestens 54 Byte 
auf den Stack frei bleiben. Damit ist gewährleistet, daß bei maximaler 
Unterprogrammverschachtelung der Stack nicht überläuft. Außerdem legt 
die Routine ab $ED34 dcis String-Abbild der Fliesslaminazahl im unteren 
Stack-Bereich (ab $0100 bzw. $00BF) ab. 
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Verwaltung der Variablen 

Die Variablen stehen im Speicher zwischen den Zeigern 69,6A (=ICMEM) und 
6D,6E. Durch lOMEM: lässt sich dieser Bereich zwischen Programmtextende und 
HIMEM einstellen, ansonsten folgt er direkt dem Programmtext. 

Zunächst folgen die einfachen Variablen, hinter denen dann ab,^(6B,6C) die 
Peldvariablen stehen. Innerhalb dieser beiden Bereiche gibt es keine 
Gliederung, soidern EP-Variable (FP = Floating Point = Fliesskctnma), 
Integer-Variable und String-Variable vrerden in der Reihenfolge ihrer 
Definition abgelegt. Wird nun z.B. eine neue einfache Variable definiert, 
so werden die Feldvariablen versohoben, und die neue Variable am Ende der 
einfachen Variablen eingefügt. 

Wird dagegen CLERR durchgeführt, so wird nicht der Speicher gelöscht, 
sondern es werden lediglich die Zeiger auf die Bereichsenden auf die 
Variablen-Anfangsadresse (LCMBM) gesetzt. 

Einfache Variablen belegen immer 7 Byte. Die ersten beiden enthalten 
den Variablennanen, wobei in Bit7 der Variablentyp verschlüsselt ist; 

- FP: Kamel (Bit7=0); Name2 (Bit7=0); Exponent; Mantissenbytes 1-4 

- Int^er: Kanel (Bit7=l); Name2 (Bit7=l); HByte; LByte; 3 Bytes = 00 

- String: Kamel (Bit7=0); Kanve2 (Bit7=l); 3 Deskriptorbytes; 2 Bytes = 00 
Die Stringvariable aithält also nicht den String selbst, sondern den 
Deskriptor, der die Stringlänge angibt, und wo der eigentliche String im 
Speicher steht, (siehe Abschnitt über die Stringverwaltung) 

Feldvariable besitzen folgende Struktur: 

Variablennane (2 Byte, enthält ebenfalls den Variablentyp in den Bits 7) 
Länge der Feldvariablen (LByte, HByte) 

Anzahl der Dimensionen (1 Byte) 

Dimensionierung des letzten Index (HByte, LByte) 


Dimensionierung des ersten Index (HByte, LByte) 

Elemente in der Folge (0,0,..,0), (1,0,..,0),.., (n,0,..,0), (0,1,..,0) etc 
d.h. der erste Index wächst am schnellsten, der letzte am langsamsten. 
Die Elanente haben den gleichen Inhalt wie einfache Variable, bis auf die 
überflüssigen Kullen. FP/Integer/String-Elanente sind also 5/2/3 Byte lang. 

Variablen werden definiert, sobald ihnen ein wert zugewiesen wird. 

Dies gilt auch für Felder. Eine Zuweisung auf ein Element eines bisher 
nicht dimensionierten Feldes bewirkt dessen Dimensionierung mit 
11 Elementen pro Dimension, d.h. wie DIM A(10,10,..,10). 

Wird nur der wert einer nicht definierten Variable verwandt, so wird die 
Variable dadurch nicht neu eingerichtet, und als wert erhält man null 
bzw. einen String der Länge 0. 

Mit STORE und RECALL keimen Felder auf Cassette gespeichert verden bzw. 
wieder von dort geladen werden. Dabei wird nur (ter Name angegeben und 
keine Indices, wie sonst üblich. Das in diesem Fall gesetzte SIORE-Flag 
(in $14 wird Bits gesetzt) bewirkt, daß trotz<fem eine Feldvariable 
geladen bzw. abgespeichert wird. 

Da der Variablentyp in die beiden Namenbytes integriert ist, kann ein 
Nane für sechs Variable verwandt werden, ohne daß Verwechslungen möglich 
sind, nämlich für jeden Typ, und zwar einfach oder als Feld. 









Stringverwaltung 

Da Strings Zeichenketten sind, deren genauer Inhalt für die Verwaltung 
dine Belang ist, werden Strings ireist über sogenannte DesJcriptoren 
gehandhabt. Ein Deskriptor beinhaltet in 3 Byte die Länge des Strings, und 
WD er im Speicher zu finden ist. In dieser Form wird er auch in Variablen 
abgelegt. Der eigentliche String steht dann entweder im Prograimitext, im 
Stringbereich am oberen RftM-Ende, oder auch im Eingabepuffer. 

Wird einer Stringvariablen ein neuer Inhalt zugewiesen, so wird einfach 
der Deskriptor des neuen String in die Variable eingetragen,, und der 
neue String selbst an den Anfang des Stringbereichs angehängt, falls er 
nicht im Progranmtext steht. Dadurch kan es geschehen, daß sich im String- 
Bereich iirmer mehr ‘.'Stringleichen" ansanmeln, d.h. Strings, die keiner 
Variablen nehr zugewiesen sind, und unnötigerweise Speicherplatz kosten. 

Den Stringbereich von solchen Stringleichen zu befreien ist die Aufgabe 
der Garbage Collection Routine. Sie vergleicht Variablenbereich und 
Stringbereich und überninnvt nur aktuelle Strings. Diese Routine wird 
durchgeführt, sobald der Speicherplatz nicht mehr ausreicht, sowie 
bei der Funktion PRE(O). 

um Stringdeskriptoren handhaben zu können, obwohl sie keiner 
Variablen zugewiesen sind, gibt es den Deskriptoren-Stack in der Zeropage. 
Auf ihm haben 3 Deskriptoren Platz. Wenn der Deskriptor für einen neuen 
String bestimmt wurde, wird er grundsätzlich zunächst auf dam Deskriptoren¬ 
stack abgelegt ($E42A ff), und der String in den Stringbereich übernonmen, 
falls notwendig. Sobald der neue String seine Bestimmung gefunden hat, 

(z.B. einer Variablen zugewiesen wurde, oder gedruckt wurde etc.)j wird der 
Deskriptor wieder van Deskriptoren-Stack «itfernt ($E635 ff). Wird der 
String selbst auch nicht nehr benötigt, wird er, sofern er ganz am Anfang 
des Stringbereichs steht, ebenfalls gelöscht ($E600 ff). 

Für den Deskriptoren-Stack gibt es auch einen Zeiger, der auf die als 
nächstes zu besetzende Position zeigt. Seine Funktionsweise ist also 
die gleiche wie beim normalen Stack. 


Uitwandlung einer Fliesskoniraazahl in einen String 

Diese Aufgabe wird von der Routine ab $ED34 wahrgenoimen. Durch Vergleich 
mit entsprechenden Konstanten werden nach und nach die einzelnen Ziffern 
bestimmt, außerdan Vorzeichen und Exponent. Der String wird dabei ab $00FP 
( also im unteren Stackbereich!) abgelegt, falls die Routine von 3®$ 
gerufen wurde, bzw. ab $0100, falls der Aufruf von HSINT erfolgte. Im Fall 
von STR$ wird der Zahlenstring auch noch in den Stringbereich kopiert, bei 
PRINT nicht (vgl. $E3E7 ff). 
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Die Garbage Collection Routine 

Bei der Verwaltung der Strings kann es geschehen, daß sich im String¬ 
bereich Strings ansammeln, die keiner Variablen mehr zugewiesen sind, 
String-"Müll'' also (vgl. Erläuterung der Stringverwaltung). Die Garbage 
Collection Routine ab $E484 beseitigt diese aus dem Stringbereich. 

Dazu wird zunächst der Stringbereichs-Anfang auf HMEM gesetzt; nun gibt 
es also keine gültigen Strings im Stringbereich. 

Es werden nun sämtliche Stringvariablen sowie der Deskriptoren-Stack 
durchsucht, um den String mit der höchsten Adresse zu finden, der nicht 
im Stringbereich steht, d.h. der noch nicht als aktuell erkannt wurde. 
Dieser wird schliesslich in den Stringbereich überncranen, und der zuge¬ 
hörige Deskriptor aktualisiert. Dieser String, im Kcmmentar als Tcpstring 
bezeichnet, wird in den folgenden Durchgängen also nicht mehr berück¬ 
sichtigt. Nun «erden erneut sämtliche Variablen untersucht, um aus den 
verbliebenen Strings den höchsten gültigen herauszufinden usw, bis endlich 
alle aktuellen Strings in den Stringbereich öbemomnen worden sind. 

Da äer Zeitaufwand für diese Routine etwa quadratisch mit der Anzahl der 
Strings wächst, kann es bei vielen Strings zu erheblichen Laufzeiten 
koraiBn. 

Diese Routine wird ausgelöst von FRE(O) oder falls der Speicherplatz 
nicht nehr ausreicht. 


Die Darstellung von Fliesskcmma-Zahlen 

In der Zercpage gibt es insgesamt sechs Fliesskcmma-Register. 

Dies sind die 'Floating Point Accus' FACl - FAC5, sowie ein Hilfsregister 
bei 62-65. Die Harptrolle bei den Arithmetik-Operationen spielen jedoch 
FACl und FÄC2. Ihr .Format unterscheidet sich geringfügig vcm allgemeinen 
Fliesskamma-Focmat, velches sich wie folgt zusairmensetzt: 

Das erste Byte stellt den Exponenten zur .Basis 2 dar. Er bestimmt den 
Stellenwert der einzelnen Mantissen-Bits. Beträgt er 80, so hat das 
höchste Bit die Wertigkeit 0.5; bei TP bzw. 81 beträgt diese entsprechend 
0.25 bzw. 1. 

Es folgen vier Mantissenbytes (Mi. - M4), die Mantisse umfasst also 32 Bit. 
Da der Stellenwert bereits durch den Exponenten bestimmt ist, muß das 
höchstwertigste Bit iiimer gesetzt sein. Da es somit keine Information 
trägt, dient es als Vorzeichenbit (minus = 1, plus =0). Dm die Zahl Null 
exakt darstellen zu können, wird der Exponent in diesem Fall nullgesetzt. 
Beispiele: 83 40 00 00 00 bedeutet 6.0 

83 CI 00 00 00 bedeutet -6.03125 

Bei FACl und FAC2 wird nun das Vorzeichen nicht ins erste Mantissenbit 
gesetzt, sondern in Bit? eines gesonderten Vorzeichenbytes. Die obigen 
Beispiele ergeben dann 00 83 CO 00 00 00 für 6.0 

und 80 83 CI 00 00 00 für -6.03125 

wobei das erste Byte jeweils das Vorzeichenbyte darstellt 
Ausserdem besitzt FACl ein 5. Mantissenbyte als Rundungsstelle, um 
Rundungsfehler zu reduzieren. 

Soll FACl ins Integerformat gebracht vrerden, so wird die Mantisse so 
vreit verschoben, bis das letzte Bit den Stellenwert 1 hat. In obigen 
Beispielen ergibt sich AO 00 00 00 06 für 6.0 

und AO IF FF FF F9 für -7.0 

da negative Integerzahlen Vorzeichenrichtig dargestellt TOrden. 







Strukturierung des Progranintextes 

Der Anfang des Programmtextes wird durch den Zeiger 67,68 angegeben, die 
erste Adresse hinter dan Programmtext durch den Zeiger AF,B0. 

Im Nbrmalfall beginnt der Programmtext bei der Adresse $0801. 

Innerhalb dieses Bereiches stehen die Programmzeilen in der Reihenfolge 
ihrer Zeilennunmem angeordnet. Jede Programazeile wird dabei wie folgt 
dargestellt: 

- Linkadresse; dies ist die RAM-Adresse der folgenden Programmzeile. 

- Zeilennunmer; sie wird als 2-Byte-Integer dargestellt. Die kleinste 

erlaubte Zeilennumter ist 0, die größte 63999. 

- Text der Programmzeile; bei der Prograimizeilenkaiierung wurden sämtliche 

erkannten Keywrds durch die zugehörigen Tokens 
ersetzt. 

- 00 kennzeichnet das Ende einer Programmzeile. 

Das Ende des Prograrantextes wird im Text selbst durch zwei Bytes mit 00 
gekennzeichnet. Der Programtext endet also mit insgesamt dreimal 00. 

Wird der Befehl NEW ausgeführt, so wird keineswegs der gesamte Speicher¬ 
bereich gelöscht. Es werden lediglich an den Prograirmanfang zwei Nullbytes 
eingetragen, als Marke für das Progranmtext-Ende, und die Zeiger in der 
Zeropage vrerden neu gesetzt. Durch die Korrektur dieser Bytes direkt 
im Speicher läßt sich der Text wieder retten. 


Die CHRGET-Routine 

Diese Routine holt ein Zeichen aus dan Programntext, dan Eingabepuffer 
oder sonst einem Datenbereich, und klassifiziert dieses bereits. 

Die Kaltstart-Routine kopiert die CHRGET-Routine von $F10B ff in die 
Zeropage ab $00B1. Der CHRGET-Zeiger B8,B9 stellt dort genau die Adresse 
eines absolut adressierten IDA-Befehls dar. 

Es existieren zwei Einsprungstellen, $00B1 und $00B7. Die erstere erhöht 
den CHRGET-Zeiger um eine Position, um das nächste Zeichen zu holen. Beim 
zweiten Einsprung wird genau das aktuelle Zeichen geholt. 

Falls dieses Zeichen ein Leerzeichen ist, wird es ignoriert, d.h. der 
CHRGET-Zeiger wird erhöht, und gleich das nächste Zeichen geholt. 

Ansonsten kehrt die Routine mit dan Zeichen im Accu zurück, wobei die 
Statusflags C und Z wie folgt gesetzt sind: , 

- C=0, falls das Zeichen eine Ziffer ist; 

C=l, falls das Zeichen keine Ziffer ist; 

- Z=0, falls das Zeichen weder 00 noch 3A ist; 

Z=l, falls das Zeichen 00 oder 3A ist; 

ScMohl 00 als auch 3A dienen als Trennzeichen in Basictexten. 

00 markiert das Ende einer Programmzeile oder Eingabezeile; 

3A ist der Ascii-Kode von des Zeichens welches als Trennzeichen 
zwischen zwei Anweisungen einer Befehlszeile dient. 

Durch prüfen dieser Flags wird die Analyse von Befehlszeilen erheblich 
vereinfacht. 

Beim Aufruf einer Applesoft-Routine ($D828 ff) wird als letzte Operation 
vor dem Sprung zur Routine noch das nächste Zeichen geholt. Die einzelnen 
Routinen setzen deswegen vorraus, daß sich im Accu das nächste Zeichen 
befindet, und die beschriebenen Flags entsprechend gesetzt sind. 
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Die Routine zur Auswertung von Ausdrücken 

Diese Routine ($DD7B ff) ist eines der wichtigsten Hilfsmittel des 
Interpreters, und zugleich eine der am schwersten verständlichen. Sie 
analysiert den Ausdruck, auf den der CHRGET-Zeiger zeigt. 

Zunächst holt die Routine ab $DE60 einen Operanden. Folgt auf diesen 
ein Trennzeichen, wird die Routine sofort abgeschlossen (über $DE35). 

Folgt ein VergleichsZeichen, so wird die Vergleichsoperation bestimnt 
und das Vergleichsflag entsprechend gesetzt. Je nach dem Prioritätsflag 
auf dem Stack verden Daten dieser Operation (Routinen-Adresse, Operand,. 
Vergleichsflag und Prioritätsflag) auf den Stack geschoben, oder atjer, 
falls die offene Operation auf dan Stack den Vorrang hatte, diese mit 
dan neuen Operanden vollzogen. 

Folgt einem String-Operanden ein "+", so wird eine Stringverknüpfung 
durchgeführt. 

Handelt es sich jedoch um eine arithmetische Operation, so geschieht 
ähnliches, wie vorher bei der Vergleichisoperation beschrieben. 

Dies soll nun durch eine ld.eines Beispiel erläutert werden. 

Der Ausdruck sei 3 + 5 * 2, es geschieht nun folgendes: 

- $DE60 bringt die 3 nach FACl, der Operator "+" wird geholt; 

- Prioritätsvergleich: Stackpriorität = 0, Priorität von "+" = 79 

- $IS)FD hiringt die Sprungadresse für die Additionsroutine, den Operanden, 
und (ab $DD86) das Vergleichsflag (=0) und das Prioritätsflag (= 79) auf 
den Stack. Die Rücksprungadresse nach DDDA bleibt auf den Stack. 

- $DE60 bringt nun 5 nach FACl, und der Operator "*" wird geholt; 

- Prioritätsvergleich: Stack = 79, "*“ = 7B, Multiplikation hat Vorrang; 

- $rOFD haringt die Daten dieser Operation ebenfalls auf den Stack; 

- $DE60 bringt 2 nach FACl, das nächste Zeichen ist ein Trennzeichen; 

- $DE35 bringt 5 nach FAC2, über RTS Sprung zur Multiplikationsroutine; 

- nach deren Abschluss zurück nach SfODA, dort Prioritätsvergleich mit 
der nächsten Stackoperation. Treimzeichen hat Priorität FF. 

- $DE43 laringt 3 nach FAC2 (in FACl steht 10), ülier RTS zur Addition; 

- nach deren Abschluss wieder zurück nach $H)DA. Routine abschliessen, 
da keine Operation nehr offen steht. 

Die Routine ab $DE60, die jeweils den Operanden holt, unterscheidet 
folgende Fälle: 

- numerische Konstante, gegeben als String. Es erfolgt die Unwandlung 
ins Fliesskcmmaformat, die Konstante steht dann in FACl. 

- Variablenwert. Die angegebene Variable wird gesucht, und der Inhalt rach 
FACl gebracht. (Bei Stringvariablen wird der Zeiger auf den String- 
Deskriptor nach A0,A1 gebracht.) 

- Stringkonstante, gegeben in Ascii. Der Stringdeslcriptor wird bestimnt 
und auf den Deskriptorenstack geschoben; A0,A1 zeigt auf den Deslcriptor. 

- FN-Ausdruck. Sprung zur FN-Auswertung, (Ergebnis steht in FACl. 

- Funlctionswert, z.B. SQR(8). Sprung zur Auswertung von Funktionen. 

- Klanmerausdruck. Hier wird nun zur Auswertung des Ausdrucks zwischen den 
Klammern die Routine zur Ausdruc)csauswertung ab $DD7B gerufen. Durch die 
auf dem Stack ganericten Rücksprungadressen wird diese rekursive 
Vorgehensweise emöglicht. 

- Wird keiner der vorstehenden Fälle er)tannt, ist der Ausdruck fehlerhaft, 
und SZWTA)! ERROR wird ausgelöst. 

Die Routine ab $DEB8 wird vielfach zur Syntax-Prüfung benutzt. Sie ver¬ 
gleicht das Zeichen, auf wlches CHRGET zeigt, mit ")", "(", oder einem 
soistigen Ascii-Zeichen, je nach Einsprung. Bei übereinstitrmung erfolgt 
der Rüclcsprung mit dem nächsten Zeichen im Accu, sonst SYNTAX ERROR. 
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GKAFIKROUIINEM 


Das Zeichnen einer Linie 

Die Anweisung HPLOT xl,yl TO x2,y2 ermöglicht das Zeichnen von beliebigen 
geraden Linien durch die Angabe iter Endpunkte. Da der Bildschirm in ein 
280 X 192 -Punktraster aufgeteilt ist, müssen schräge Linien durch eine 
stufenartige Figur angenähert verden. 

Dazu werden zunächst der horizcxitale und vertikale Abstand der Endpunkte , 
bestintnt. Das Verhältnis dieser beiden Strecken legt die Steigung der 
Geraden fest. Die Sumne dieser beiden Strecken ergibt die Anzahl der zu 
zeichnenden Punkte. 

Es wird nun ein Saldo-Register eingerichtet. Jedesmal, wenn ein Punkt in 
horizontaler Richtung gesetzt wurde, wird die Y-Differenz der Endpunkte 
vom Saldo subtrahiert; jedesmal, vrenn ein Punkt in vertikaler Richtung 
gesetzt wurde, wird die X-Differenz der Endpunkte zum Saldo addiert. Bei 
jedem Vorzeichenwechsel des Saldoregisters »echselt die Zugrichtung. 

Warn also z.B. die Y-Differenz nur die Hälfte der X-Differenz beträgt, 
sind doH>elt so viele Züge in horizontaler Richtung notwendig wie in 
vertikaler Richtung, rm das Saldoregister auszugleichen, und es ergibt 
sich genau die richtige Steigung der Linie. Es wird hierbei mit den 
Beträgen der X- bzw. Y-Differenz der Endprmkte gearbeitet. Die beiden 
Vorzeichen werden in ein Richtungs-Flag integriert, welches die Zugrichtung 
vollends festlegt, also ob links oder rechts bei horizontalan Zug und nach 
oben oder nach unten bei vertikalan Zug. Nachdem die zuvor bestimmte 
Gesamtzahl von Zügen erfolgt ist, wird die Routine beendet. 


Das Zeichnen eines Shape 

Shapes erlauben auf elegante Weise die Darstellung beliebiger Figuren in 
hochauflösender Grafik. Die Definition eines Shape besteht aus Anweisungen 
von jeweils 3 Bit, die die Zugrichtung für den nächsten Punkt angeben, und 
ob der Punkt gesetzt werden soll. Die Darstellung auf dem Bildschirm wird 
durch 2 Parameter beeinflußt, den SCALE-Stert und den ROT-Wert. 

Der SCALE-Wert gibt an, wie oft jede Anweisung wiederholt werden soll, und 
erlaubt so die vergrößerte Darstellung eines Shape. Der BDT-wert gibt an, 
um wieviel der Shape im Uhrzeigersinn gedreht dargestellt werden soll. 
R0T=16 bedeutet die Drehung um 90'. Der ROT-Wert mod 16 ergibt so den 
Winkel gegenüber der letzten Koordinaten-Achse. 

Die Routinen von ERAW und XDRAW, die Shapes darstellen, konstruieren 
schräge Linien ähnlich wie zuvor bei HPLOT geschildert. Aus einer Tabelle 
werden der Sinus und der Cosinus des Drehwinkels gegenüber der letzten 
Koordinatenachse bestinrot. Durch Führung von zwei Saldoregistern wird nun, 
je nach Verhältnis des Sinuswerts zoti Cosinuswert, die Häufigkeit von 
Zügen in Richtung der letzten Koordinatenachse und von solchen in Richtung 
der nächsten Koordinatenachse im Uhrzeigersinn festgelegt. Je größer der 
Sinuswert, desto häufiger geht der Zug in Richtung der nächsten Achse, und 
desto größer wird somit der Winkel innerhalb dieses Quadranten. 

Der Quadrant selbst wird festgelegt durch die Richtungsangabe der Shape- 
Anweisung und die Anzahl voller rechter Winkel des ROT-Vfertes. 

Beispiel: eine Shapeanweisung nach unten ergibt bei einan ROT-Jfert von 40 
folgende dargestellte Richtung; BOT = 40 bedeutet 225', d.h. 180' +45'. 
Sin(45') = Cos(45'), die Linie halbiert also den 1. Quadranten, und der 
SCALE-Wert bestiimit die Länge der Linie. 

Der Collision Counter zählt die Anzahl der Punkte, die beim Zeichnen eines 
Shape auf schon gesetzte Punkte treffen, d.h. die Anzahl der "Treffer". 
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i; 

afanrngtabelle für /^lesoft-Befehle 
{jesseils Anfangsadresse -1) 





Token 

DOOO- 

6F 08 65 07 

'END, FDR ** 

80, 

81 

D004- 

F8 DC 94 09 

«NEXT, DATA ® 

82, 

83 

00)8- 

Bl DB 30 F3 

«INPOT, DEL® 

84, 

85 

DOOC- 

08 CF EL IS 

ü DIM, KEAD g 

86, 

87 

DOIO- 

8F F3 98 F3 

GR, TEXT 

88, 89 

DQ14- 

E4 Fl DD Fl 

m#, IN# 

SA, 8B 

Dias- 

04 Fl 24 F2 

CAIi, PLOT 

8C, 8D 

DOIC- 

31 F2 40 F2 

HUN, VLIN 

8E, 8F 

D020- 

07 F3 El F3 

H3R2, HGR 

90, 91 

D024- 

E8 F6 FD Fe 

HOLOR, HPLOT 

92, 

93 

D028- 

68 F7 6E F7 

CRAW, XCRAW 

94, 

95 

D02C- 

E6 F7 57 FC 

HTÄB, HOME 

96, 97 

D03O- 

20 F7 26 F7 

Rao=, SCaLE= 

98, 99 

D034- 

74 F7 6C F2 

aHDAD, TRAGE 

9A, 9B 

D038- 

6E F2 72 F2 

«NOORACE, NORMAL 

9C, 90 

D03C- 

76 F2 7F F2 

INVERSE, FLASH ■ 

9E, 

9F 

D040- 

4E F2 OA 09 

COLOR=, POP 

AO, Al 

0044- 

55 F2 85 F2 

VTAB, HIMEM: 

A2, A3 

DO«- 

ä 5 F2 ca F2 

ICMEM:, ONERR 

A4, A5 

D04C- 

17 F3 EB F3 

RESCME, RECALL 

A6, A7 

D(BO- 

9E F3 61 F2 

STORE, SPEED 

A8, A9 

D(B4- 

45 DA 3) 09 

£ LEI', GOTO ö 

AA, AB 

D058- 

11 09 C8 09 

• RON, IP» 

AC, AD 

DIBC- 

48 08 F4 03 

«RESTORE, 

AE, AF 

0060- 

20 09 eA 09 

sQOSUB, RETURN» 

BO, Bl 

0084- 

IS 09 60 08 

•REM, STOPS 

B2, B3 

D(»8- 

EB 09 83 E7 

eON, WUT 

B4, B5 

D06C- 

CS 08 AF 08 

lOAD, SAVE 

B6, B7 

0070- 

12 E3 7A E7 

DEF, POKE 

B8, B9 

0074- 

04 DA 95 08 

SPRINT, CONT» 

BA, BB 

0078- 

A4 06 69 06 

.fUST, CLEÄR« 

BC, ED 

007C- 

9F DB 48 06 

NEH » 

BE, BF 


^grongtabelle für Funktionen 
(jaieils Anfangsadresse) 


0080- 

90 S 23 BO 

üSQQ, INT » 

Token 
D2, 03 

0084- 

AF m OA 00 

.ABS, IBR 

04, 05 

0088- 

IS B2 12 04 

ERE, SCRN( 

06, 07 

D08C- 

CD DF FF E2 

POL, POS 

08, 09 

0090- 

80 EB AB BF 

® SQR, RND 

DA, OB 

0094- 

41 E9 09 ^ 

«LOG, EXPc 

DC, DD 

0098- 

BA FF Fl EF 

OOS, SIN 

DE, EF 

D09C- 

3A FO 9E FO 

TAN, ATN 

EO, El 

DOAO- 

64 E7 06 E6 

PEEK, LEN « 

E2, E3 

oaA4- 

C5 E3 07 E7 

3 STR$, VAL « 

E4, E5 

DOAS- 

E5 Ee 46 EO 

«ASC, CHR$<i 

E6, E7 

DOac- 

5A E6 86 E6 

<jLEFT$, RI(2IT$ ® 

E8, E9 

DISO- 

91 B6 

,MID$ 

EA 
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Sprungtabelle für Operationen _i 

jeweils Prioritätswert und Routinenadresse 


D0B2 

D0B5 

D0B8 

DOBB 

DOBE 

DOCl 

D0C4 

D0C7 

DOCA 

DOCD 


79 CO E7 Addition 

79 a9 E7 Subtraktion 

7B 81 E9 Multiplikation 

7B 68 EA Division 

7D 96 EE Potenzierung 

50 54 DF logisch ÄND 

46 4E CF logisch CR 

7F CF EE Vor2eichenwechsel 

7F 97 DE logisch NTT 

64 64 EF Vergleichsoperation 


Tabelle der Keywords in Ascii 

TSm jeweils letzten Zeichen ist Bit7 gesetzt) 


DODO 
D0D3 
D0D6 
DODA 
DODE 
D0E3 
D0E6 
D0E9 
DOED 
DOEP 
D0F3 
D0F6 
D0F9 
■ DOFD 
DlOl 
Dl 05 
0109 
1)1 OD 
DUO 
0117 

lilU' 

1)120 

0125 

D129 

012D 

D131 

D137 

D13D 

D142 

D149 

D14F 

D156 

D15B 

D161 

D164 

D168 

D16E 

D174 

D179 

D17F 

D185 

D18A 


45 4E C4 

46 4F D2 

4E 45 58 D4 
44 41 54 CI 

49 4E 50 55 D4 
44 45 OC 

44 49 CD 
52 45 41 C4 

47 D2 

54 45 58 D4 

50 52 A3 

49 4E A3 

43 41 4C CC 

50 4C 4F D4 

48 4C 49 CE 
56 4C 49 CE 
48 47 52 B2 
48 47 D2 

48 43 4F 4C 4F 52 BD 
48 SO 4C 4F D4 
, 44 52 41 D7 
58 44 52 41 07 
48 54 41 C2 

48 4F 4D C5 

52 4F 54 BD 

53 43 41 4C 45 BD 

53 48 4C 4F 41 C4 

54 52 41 43 C5 

4E 4F 54 52 41 43 C5 
4E 4F 52 4D 41 OC 

49 4E 56 45 52 53 C5 
46 4C 41 53 C8 

43 4F 4C 4F 52 BD 

50 4F DO 

56 54 41 C2 
48 49 4D 45 4D BA 
4C 4F 4D 45 4D BA 
4F 4E 45 52 D2 
52 45 53 55 4D C5 

52 45 43 41 4C OC' 

53 54 4F 52 C5 

53 50 45 45 44 BD 



Token 

END 

80 

FOR 

81 

NEXT 

82 

DATA 

83 

INPOT 

84 

DEL 

85 

DIM 

86 

READ 

87 

GR 

88 

TEXT 

89 

PR# 

8 ä 

IN# 

8 B 

CALL 

8 C 

PLOT 

8 D 

HLIN 

8 E 

VLIN 

8 F 

HGR2 

90 

HOI 

91 

HCOIiOR= 

92 

HPLOT 

93 

DRAW 

94 

XIRAW 

95 

HTAB 

96 

HOME 

97 

Bar= 

98 

SCALE= 

99 

SHLOAD 

9A 

TRACE 

9B 

NOTRACE 

9C 

NORMAL 

9D 

INVERSE 

9E 

FLASH 

9F 

COWB= 

AO 

POP 

Al 

VTAB 

A2 

HIMEM: 

A3 

ICMEM: 

A4 

ONERR 

A5 

RESUME 

ä 6 

RBCALL 

A7 

STORE 

A 8 

SPEED= 

A9 
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■ 


D190 

4C 

45 

D4 


LET 

AA 

0193 

47 

4P 

54 

CT 

Goro 

Aß 

0197 

52 

55 

CE 


RUN 

AC 

D19& 

49 

C6 



IF 

AD 

019C 

52 

45 

53 

54 ff 52 05 

RESTORE 

AE 

0ilA3 

Ae 




St 

AF 

D1A4 

47 

4F 

53 

55 02 

GOSOB 

BO 

0LB9 

52 

45 

54 

55 52 CT 

RETURN 

Bl 

map 

52 

45 

CD 


REM 

B2 

niB2 

53 

54 

ff 

DO 

STOP 

B3 

i 0106 


CE 



ON 

B4 

1 0108 

57 

41 

49 

D4 

miT 

B5 

f OlBC 

4C 

4F 

41 

04 

IDAD 

B6 

i 0100 

53 

41 

56 

05 

SAVE 

B7 

r 0104 

44 

45 

C6 


DEF 

B8 

' 0107 

50 


4B 

05 

POKE 

B9 

1 0100 

SO 

52 

49 

4E D4 

PRINT 

BA 

DUO 

43 

4F 

4E 

D4 

CONT 

BB 

0104 

4C 

49 

53 

D4 

LIST 

BC 

Due 

43 

4C 

45 

41 D2 

CLEftR 

BD 

OUDD 

47 

45 

D4 


GET 

BE 

mun 

4E 

45 

D7 


NEW 

EF 

mm 

54 

41 

42 

A8 

'IHBC-- 

"CO ~ 

0LB7 

54 

CT 



TO 

CI 

rilM 

46 

CE 



iFN 

C2 

muB 

53 

50 

43 

A8 

SPC( 

C3 

BUBF 

54 

48 

45 

CT 

TSEN 

C4 

0113 

41 

D4 



AT 

C5 

D1S5 

4E 

4F 

D4 


^^NOT 

C6 

IHf» 

53 

54 

45 

DO 

STEP 

C7 

ffiUC 

AB 




+ .. 

— es— 

BTlI IW I 

AD 




- 

C9 

OtPE 

AA 




* 

CA 

DfflF 

AP 




/ 

CB 

D2D0 

DB 





CC 

0201 

41 

4E 

C4 


AtSD 

CD 

0204 

4F 

D2 



OR 

CE 

0206 





> 

CF 

0207 

BD 




= 

DO 

0208 

BO 




< 

___-Dl-.._ 

0209 

53 

47 

CT 


SGN 

D2 

O20C 

49 

4B 

D4 


INT 

D3 

02QF 

4L 

42 

D3 


ABS 

D4 

0212 

55 

53 

D2 


USR 

D5 

0215 

46 

52 

C5 


FEIE 

D6 

0218 

53 

43 

52 

4E A8 

SCRN( 

D7 

071 fl 

50 

44 

00 


PDL 

D8 

0220 

50 

ff 

D3 


POS 

D9 

0223 

53 

51 

02 


SQR 

DA 

0226 

52 

4E 

C4 


RND 

DB 

0229 

4C 

ff 

C7 


IiOG 

DC 

0220 

45 

58 

DO 


EXP 

DD 

D22F 

43 

ff 

03 


COS 

DE 

0232 

53 

49 

CE 


SIN 

EF 

0235 

54 

41 

CT 


TAN 

EO 

0238 

41 

54 

CT 


ATN 

El 

D23B 

50 

45 

45 

CB 

PEEK 

E2 

imp 

4C 

45 

CE 


LEN 

E3 

0242 

53 

54 

52 

A4 

STR$ 

E4 

0246 

56 

41 

00 


VAL 

E5 

0249 

41 

53 

C3 


ASC 

E6 
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D24C 

43 

48 

52 

A4 

CHR$ 

E7 

D250 

4C 

45 

46 

54 A4 

LEFT$ 

E8 

D255 

52 

49 

47 

48 54 A4 

RIGHT$ 

E9 

D25B 

4D 

49 

44 

A4 

MID$ 

EA 

D25F 

00 




als Enämarke 



Tabelle der 

Fehlermeldungen in Ascii mit den 

zugehörigen Fehlerkodes 


D260 

4E 

45 

58 

54 

20 

57 

49 

54 

48 

4F 

55 

54 


NEXT WITHOOT 



20 

46 

4F 

D2 










POR 

00 

D270 

53 

59 

4E 

54 

41 

D8 








SYNTAX 

10 

D276 

52 

45 

54 

55 

52 

4E 

20 







RETURN 



57 

49 

54 

48 

4F 

55 

54 

20 

47 

4P 

53 

55 

C2 

WITHOUT GOSUB 

16 

D28A 

4F 

55 

54 

20 

4F 

46 

20 

44 

41 

54 CI 



OUT OF DATA 

2A 

D295 

49 

4C 

4C 

45 

47 

41 

4C 

20 






ILLEGAL 



51 

55 

41 

4E 

54 

49 

54 

D9 






QUANTITY 

35 

D2A5 

4F 

56 

45 

52 

46 

4C 

4F 

D7 






OVERFLOW 

45 

D2AD 

4F 

55 

54 

20 

4F 

46 

20 







OUT OF 



4D 

45 

4D 

4F 

52 

D9 








MEMORY 

4D 

D2BA 

55 

4E 

44 

45 

46 

27 

44 

20 





s 

, UNDEF'D 



53 

54 

41 

54 

45 

4D 

45 

4E 

D4 




W 

STATEMENT 

5A 

D2CB 

42 

41 

44 

20 

53 

55 

42 

53 

43 

52 

49 

50 

D4 

BAD SUBSCRIPT 

6B 

D2D8 

52 

45 

44 

49 

4D 27 

44 

20 

41 

52 

52 

41 

D9 

REDIM'D ARRAY 

78 

D2E5 

44 

49 

56 

49 

53 

49 

4F 

4E 20 





DIVISION 



42 

59 

20 

5A 

45 

52 

CF 







BY ZERO 

85 

D2F5 

49 

4C 

4C 

45 

47 

41 

4C 

20 

44 

49 

52 

45 

43 D4 

ILToEEAL DIRECT 

95 

D303 

54 

59 

50 

45 

20 

4D 

49 

53 

4D 

41 

54 

43 

C8 

TYPE MISMATCH 

A3 

D310 

53 

54 

52 

49 

4E 

47 

20 

54 

4F 

4F 

20 



STRING TOO 



4C 

4F 

4E 

C7 










IDNG 

BO 

D31F 

46 

4F 

52 

4D 

55 

4C 

41 

20 

54 

4F 

4F 

20 


FORMUtA TOO 



43 

4P 

4D 

50 

4C 

45 

D8 







CCMPLEX 

BF 

D332 

43 

41 

4E 

27 

54 

20 








CAN’T 



43 

4F 

4E 

54 

49 

4E 

55 

C5 






CONTINUE 

D2 

D340 

55 

4E 

44 

45 

46 

27 

44 

20 






UNDEF'D- 



46 

55 

4E 

43 

54 

49 

4P 

CE 






FUNCTION 

EO 


Ganeinsame Texte 







D350 20 45 52 

52 

4P 

52 

07 

00 

" ERROR" + Glocke 

D358 20 49 4E 

20 

00 




" IN ” 

D35D OD 42 52 

45 

41 

4B 

07 

00 

CR + "BREAK" + Glocke 
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Kctnmentiertes Listing RCM-Routinen von $D365 - $F7FF 


Allgemeine Banerkungen 

Im Listing wurden zusaimienhängende Routinen gegeneinander abgegrenzt, ? 
um eine übersichtlichere Darstellung zu erhalten. 

Dai einzelnen Routinen ist jeweils eine Überschrift beigefügt, die bei 
Basic-Befehlen das entsprechende Keyward enthält, und bei allen übrigen, 
Routinen (z.B. Unterprogrammen) eine stichwortartige Funktionsbeschreibung. 
Lange, und unübersichtliche Routinen wurden durch gelegentliche 
Zwischenüberschriften übersichtlicher dargestellt. 

Wo dies sinnvoll oder notwendig erschien, wurden zusätzlich noch die 
Sdinittstellen spezifiziert, d.h. die Parameter, die die Routine beim 
Einsprung erwartet, sowie jene, die nach Abschluss der Routine bereit¬ 
stehen. Dabei kennzeichnet ein vorgestelltes "I:" die Einsprungparameter, 
und ein vorgestelltes ”0:" die Rücksprungparameter. 

Der Einfachkeit halber wurden jedoch folgende Parameter nicht mit 
aufgeführt, da sie von allgaveiner Natur sind: 

- Der CHRGET-Zeiger zeigt bei Äpplesoft-Routinen auf das erste Zeichen 
hinter dem zugehörigen Token, fer Accu enthält dieses Zeichen, und 
die Statusflags C und Z sind entsprechend diesem Zeichen gesetzt. 

(vgl. die Banerkung zur CHRGET-Routine) 

Das Y-Register enthält beim Einsprung (Token - 80) x 2 (vgl. $D828 ff) 

- Nach Abschluss von Äpplesoft-Routinen zeigt der (IKGET-Zeiger auf das 
Trennzeichen hinter dan Basic-Statement. 

- ^^lesoft-Funktionen (Token D2 - E7) erwarten folgende Einsprungpara- 
neter: Das Argurrent befindet sich im FACl, der CHRGET-Zeiger zeigt 
bereits auf das nächste Trennzeichen. Bei Stringfunktionen steht der 
Zeiger auf den .StringdesJcriptor in A0,A1. 

Beim Rücksprung befinden sich numerische Ergebnisse in EACl, bei Strings 
steht der Deskriptor im Deslcriptoren-Stack, und A0,A1 zeigt darauf. 

Zahlen im Kcmrtentar sind in (ter Regel in dezimaler Notation angegeben, 
um die Lesbarkeit zu erhöhen. Unter #$36(hex) z.B. kann man sich weniger 
vorstellen wie unter 54(dez). In seltenen Fällen (besonders bei FF) 
wurde die hexadezimale (eigentlich: sedezimale) Notation verwendet, wo 
dies zum Verständnis beitrug, und durch ein vorgesetztes "$" 
gekennzeichnet. Zeropageadressen jedoch sind itraier in hexadezimaler 
Notation angegeben. 

Es wurde versucht, das Assembler-Listing nicht zu paraphrasieren, sondern 
wirklich zu loainmentieren. Es wurde deswegen nicht jeder trivialen Zeile 
ein Kcnmentar beigefügt. Insbesondere bei dsn häufigen Umgang mit 2-Byte- 
Zeigern wurde der gesamte Vorgang (z.B. Zeiger eintragen oder erhöhen) 
meist in einem einzigen Konrnentar am Anfang zusartmengefasst, um die 
Übersichtlichkeit zu erhöhen. Auch bei kurzen Schleifen wurde häufig etwas 
pauschaler kommentiert. 

Bei bedingten Sprüngen wurde beim Sprungbefehl die Bedingimig bzw. 
anschauliche Begründung für den Sprung angeführt. 


19 



Übersicht über die HCM-Routinen, nach Adressen sortiert 

D365 Suche PORAEXT-Parameter im Stack, Unterprogramm 

D39A Speicherblock verschieben, Unterprogramm 

D3D6 Platz auf Stack prüfen, Unterprogramm 

D3E3 freien Speicherplatz prüfen, Unterprogramm 

D412 Fehlermeldungen behandeln 

D43C Warmstart 

D45C neue Progranmzeile übernehnen 

D52C Eingabe einer Befehlszeile, Unterprogramm 

D553 Eingabe eines einzelnen Zeichens, Unterprogramm 

D559 Applesoft Keywords kodieren, Unterprogramm 

D61A Progranmzeile suchen, Unterprogramm 

D649 NEW, Routine 

D66A CLEAR, Routine 

D683 Stack initialisieren, Unterprogramm 

D697 CHRGET auf Programmstart -1 setzen, Unterprogramm 

D6A5 LIST, Routine 

D766 PUR, Routine 

D7D2 Interpreter-Hauptschleife 

D849 RESTORE, Routine 

D86E STOP, Routine 

D870 END, Routine 

D896 CONT, Routine 

D8B0 SAVE, Routine 

D8C9 IDAD, Routine 

D8F0 setze Monitorregister für Längendaten, Unterprogramm 

D901 setze Monitorregister für Programmtext 

D912 RUN, Routine 

D921 GCßUB, Routine 

D93E GOTO, Routine 

D96B RETURN/POP, Routine 

D9A3 suche nächstes Trennzeichen, Unterprogramm 

D9A5 suche Zeilenende, Unterprogramm 

D9C9 IF, Routine 

D9DC REM, Routine 

D9EC ON, Routine 

DAOC hole Zeilennunmer aus Programmtext, Unterprogramm 

DA46 LET, Routine 

DA7A Deskriptor in Varizible eintragen 

DAD5 PRIKT, Routine 

DB3A String drucken, Unterprogranm 

DB57 einzelnes Zeichen drucken, Unterprogramm 

DBAO GEir, Routine 

DBB2 INPUT, Routine 

DBE2 READ, Routine 

DCF9 NEXT, Routine 

DD6A prüfe, ob Ausdruck numerisch 

DD6C prüfe, ob Stringausdruck 

DD7B Auswertung eines beliebigen Ausdrucks, Unterprogramm 

DE60 hole Operand aus Programmtext, Unterprogranm 

DE98 NOT, Operation 

DED5 hole Variablenwert, Unterprogramm 

DEF9 SCRN, Routine 

DPOC Auswertung von Funktionen 

DF4F CK, Operation 

DF55 AND, Operation 

DF65 Vergleich durchführen 

DFCD PDL, Routine 

DFD9 DIM, Routine 

DFE3 suche Variable, Uhterprogramm 

E07D prüfe Zeichen auf Buchstabe, Unterprogranm 


20 













E2AD Multiplikation, Uhterprograinm 

E2DE ERE, Routine 

E2F2 Integer (a,Y) —> FACl 

E2EF KB, Routine 

E313 DEF, Routine 

E354 EN auswerten 

E3C5 S'ER$, Funktion 

E3E7 Stringdeskriptor bestimmen 

E452 Platz für neuen String schaffen 

E484 Garbage Collection 

E597 Stringverkettung, Operation 

E5D4 String kopieren, Onterprogramm 

E5FD unnütze Strings entfernen, Unterprogramn 

E646 CHR$, Funktion 

E65A LEFT$, Funktion 

E686 RI<3ir$, Punktion 

E691 MID$, Funktion 

E6D6 lEN, Funktion 

E6E5 ASC, Funktion 

E6F5 hole 1-Byte-Integer aus Programmtext, Onterprogramm 
E707 WüS, Funktion 

E746 hole 2-Byte-Integer und 1-Byte Integer, Unterprogramm 

E752 FACl —> Integer 

E764 PEER, Funktion 

E77B POKE, Routine 

E784 WaiT, Routine 

E7A0 FACl = FACl + 0.5, Unterprogramm 

E7A7 FACl = (A,Y) - FACl, Unterprogramn 

E7AA FACl = FAC2 - FACl, Operation 

E7HE FACl = (A,Y) + FACl, Unterprogramm 

E7C6 FACl = EAC2 + FACl, Operation 

E941 11X3, Funktion 

E97F FACl = (A,Y) * FACl, Unterprogramm 

E987 FACl = FAC2 * FACl, Operation 

Ea39 FACl = 10 * FACl, Unterprogramm 

Ea55 EACl = FACl / 10, Unterprogramm 

EA66 FACl = (A,Y) / FACl, Unterprogramm 

EA69 FACl = FAC2 / FACl, Operation 

EAF9 (A,Y) —> FACl 

EB2B FACl —> (X,Y) 

EB53 FAC2 —> FACl 

ffi63 FACl —> FAC2, Unterprogramme 

EB72 FACl runden, Unterprogramm 

EB82 Vorzeichen von FACl testen, Unterprogramm 

EB90 SGN, Funktion 

EBÄF ABS, Funktion 

EBB2 FACl mit (A,Y) vergleichen, Unterprogramm 
EBF2 FACl —> Integer, Unterprogramm 

EC23 MT, Funktion 

@b: 4A Zahienstring —> FP-Konstante, Unterprogramn 

H)34 FACl —> Zahlenstring, Onterprogramm 

EE8D SQR, Funktion 

EE97 EACl = EAC2 ‘ FACl, Operation 

EF09 EXP, Funktion 

EFSC ungerades Polyncm auswerten, Unterprogramn 

EF72 Polynon auswerten, Unterprogramm 

EFAE RND, Funktion 

EFEA OOS, Funktion 

EFFl SIN, Funktion 

F03A TAN, Funktion 

F09E ATN, Funktion 
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FlOB 

F128 

F1D5 

FIDE 

F1E5 

FIEC 

F209 

F225 

F232 

F241 

F24P 

F256 

F262 

F26D 

F26F 

F273 

F277 

F280 

F286 

F2A6 

F2CB 

F2E9 

F318 

F331 

F390 

F399 

F39F 

F3BC 

P3D8 

F3E3 

F411 

F457 

F465 

F49C 

F4B3 

F4D3 

F53A 

F5CB 

F605 

F661 

F6B9 

F6E9 

F6FE 

F721 

F727 

F72D 

F769 

F76F 

F775 

F7BC 

F7D9 

F7E7 


Kcpie der CHRGET-Routine 

Kaltstart 

CÄLL, Routine 

IN#, Routine 

PR#, Routine 

hole Plot-Parameter für IDRES-Grafik, Unterprogramm 

hole Parameter für HLIN/VLIN, ünterprogramn 

PLOT, Routine 

HLIN, Routine 

VLIN, Routine 

COLDR, Routine 

VTAB, Routine 

SPEED, Routine 

IRfiCE, Routine 

NOTEIACE, Routine 

tORMAL, Routine 

INVERSE, Routine 

FIASH, Routine 

HIMEM:, Routine 

ICMEM:, Routine 

ONERR, Routine 

GOTO nach ONERR, Routine 

RESUME, Routine 

DEL, Routine 

GR, Routine 

TEXT, Routine 

STORE, Routine 

RBCALL, Routine 

H3R2, Routine 

B3R, Routine 

XY-K^rdinaten —> R?^-Adresse, ünterprogranm 
Grafikpunkt setzen, ünterprogranm 

RAM-Adresse für horizontalen Nachbarpunkt bestinmen, ünterprogranm 

Shapeanweisung durchführen für XERAW, ünterprogranm 

Shapeanweisung durchführen für ERAW, ünterprogranm 

RM-Adresse für vertikalen Nachbarpunkt bestinmen, Unterprogramm 

Linie zeichnen in HIRES-Grafik, Unterprogramm 

RAM-Adresse —> XY—Koordinaten, Unterprogramm 

DRAW, ünterprogranm 

XERAW, Unterprogramm 

hole Parameter für HPLOT, ERAW, XERAW, ünterprogranm 

IKOIOR, Routine 

HPLOT, Routine 

RC)T=, Routine 

SCALE=, Routine 

hole Parameter für ERAWAERAW, Unterprogramm 
ERAW, Routine 
XERAW, Routine 
SHLOAD, Routine 

Monitorregister für STDRE/RBCALL setzen, Unterprogramm 
suche Feld für STORE/RECALL, Unterprogramm 
HTAB, Routine 
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Suche FOR/NEXT-Parameter im Stack 

I: 85,86 NEXT-Variable falls angegeben, sonst 86=0 

0: gefunden -> Z=l, X=S, A=Var.NameLB, sonst Z=0 

zwei Retum-Adressen überspringen 


0365- 

osx 


D366- 

INX 


0367- 

INX 


0368- 

INX 


0369- 

INX 


D36A- 

LDA 

$0101 ,x 

0360- 

CMP 

#$81 

036F- 

BNE 

$0392 

0371- 

im 

$86 

0373- 

BNE 

$037F 

0375- 

Wk 

$0102 ,X 

0378- 

STA 

$85 

037a- 

LDA 

$0103 ,X 

0370- 

STA 

$86 

037F- 

CMP 

$0103,X 

0382- 

BNE 

$038B 

0384- 

LDA 

$85 

0386- 

CMP 

$0102,X 

0389- 

BEQ 

$0392 

D38B- 

TXA 


038C- 

CLC 


0380- 

ÄDC 

#$12 

038F- 

Tax 


0390- 

BNE 

$036A 

0392- 

KTS 



Kode für FOR/NEXT-Parameter? 
nein, zurück mit im Accu 
Laufvariable HByte 

nicht null, d.h. NEXT-Variable angegeben 
POR-Variable der letzten offenen schleife übernehiten 


Übereinstimmung mit gemerkter Variablen? 
nein, weiter suchen 
Laufvariable LByte 
Übereinstimmung? 

ja, aktuelle Schleife gefunden —> Return 
sonst 18 Positionen überspringen und weitersuchen 


c: 


Platz für Speicherblock-Verschiebung? 

I: A,Y = neues erwünschtes Blockende 

D393- JSR $D3E3 prüft dD genügend freier Speicherplatz 

D396- STA $6D neues Ende der Feldvariablen 

0398- STX $6E 


Speicherblock verschieben 

I: 9B,9C alter Anfang; 96,97 altes Ende+1; 

94,95 neues Endetl (94,95 > 96,97) 

0: 96,97+1 = 9B,9C = alter Anfang; 94,95+1 neuer Anf. 
X = 0; Y = 0; A = letztes Byte 


D39A- 

SBC 



D39B- 

im 

$96 

altes Ende+1,LByte 

0390- 

SBC 

$9B 

alter Blockanfang,LByte 

039F- 

STA 

$5E 

Blocklänge modulo 256 

03A1- 

TAY 



03A2- 

lOA 

$97 

altes Ende+1,HByte 

03A4- 

SBC 

$9C 

alter Anfang,HByte 

D3A6- 

TRX 


Anzahl voller Blöcke zu je 256 Byte 

D3A7- 

INX 



03A8- 

TYA 


y = 0? 

D3A9- 

BEQ 

$03(3! 

ja, kein Restblock -> volle Blöcke verschieben 

D3AB- 

IDA 

$96 

altes Erde+1,LByte 

D3A0- 

SBC 



03AE- 

SBC 

$5E 

Länge des Restblocks 

D3B0- 

STA 

$96 

Anfang Restblock,LByte 

03B2- 

BCS 

$0337 


D3B4- 

OEC 

$97 

Anfang Restblock,HByte 

03B6- 

SBC 



D3B7- 

LDA 

$94 

neues Ende+1,LByte 

D3B9- 

SBC 

$5E 

Länge des Restblocks abziehen. 
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$94 

$D3C7 

$95 

$D3C7 

($96),Y 

($94),Y 

$D3C3 

($96),Y 

($94),Y 

$97 

$95 


wird durch Y-Indizierung ersetzt ( 5E = Y ) 


Verschiebeschleife für Restblock 


Verschiebeschleife für volle Blöcke 


weiteren vollen Block verschieben 


Prüfung, ob Platz auf Stack ausreicht 
I: Accu X 2 = benötigter platz auf Stack 
O: falls ok, X = S; C = 1 
D3D6- ASL X 2 


D3D7- ADC 
D3D9- BCB 
D3DB- STA 
D3I»- TSX 
D3DE- CPX 
D3E0- BOC 
D3E2- RTS 


weniger als 54 Bytes in Reserve 
freie Bytes auf Stack 

bleiben weniger als 54 -> OOT OF MEMORY ERROR 


Prüfung, ob Platz im Speicher ausreicht 

I: A,Y = gewünschtes Ende; 6F,70 = max. Ende 

O: falls ok, A,Y = gewünschtes Erde; C = 0 

D3E3- CPY $70 prüfe HByte 

f*3E5“ BCC $D40F ok, fertig 

D3E7- BNE $D3ED 

D3E9- CUP $6F prüfe LByte 

D3EB- BCC $D40F ok, fertig 

D3ED- PHA rette A,Y auf den Stack 

D3EE- LDX #$09 Zähler für Schleife 


rette FAC3 und FAC4 auf den Stack 


D3E3- 

CPY 

$70 

D3ES- 

BCC 

$D40F 

D3E7- 

BNE 

$D3ED 

D3E9- 

CMP 

$6F 

D3EB- 

BCC 

$D40F 

D3ED- 

PHA 


D3EE- 

LDX 

#$09 

D3F0- 

TYA 


D3F1- 

PHA 


D3F2- 

IDA 

$93,X 

D3F4- 

DEX 


D3F5- 

BPL 

$D3F1 

D3F7- 

JSR 

$E484 

D3FA- 

LDX 

#$F7 

D3EC- 

PLA 


D3FD- 

STA 

$9D,X 

D3EF- 

INX 

D400- 

BMI 

$D3EC 

D402- 

PLA 


D403- 

TAY 


D404- 

PLA 


D405- 

CPY 

$70 

D407- 

BCC 

$D40F 

D409- 

BNE 

$D410 

D40B- 

CMP 

$6F 

D40D- 

BCS 

$D410 

D40F- 

RTS 



Garbage Collection 

Zähler für Schleife 

hole FAC3 und PAC4 wieder vom Stack 


hole A,Y wieder von Stack 


prüfe erneut, ob A,Y < 6F,70 
ok 

-> OOT OF MEMORY ERROR 
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D410- IJ3X #$4D 


Kode für OUT QF M01ORY HSROR 


Behandlung von Fehlermeldungen 
C: X = Fehlerkode 


f - 

0412^ 

BIT 

$08 

teste ON EKR -Flag 


D414- 

BPL 

$0419 

nicht gesetzt, Fehlermeldung drucken 


D416- 

OMP 

$F2E9 

zur Fehlerbehandlung 


D419- 

JSR 

$nAFB 

CR drucken 


D41C- 

JSR 

$0B5A - 

? drucken 


D41F- 

im 

$0260 ,X. 

Fehlermeldung drucken, X als Zeiger in Tabelle 


D422- 

PHA 


Zeichen retten 

i 

D423- 

JSR 

$0B5G 

Zeichen drucken 

\ «a 

D426- 

INX 




0427- 

ELA 


hcle letztes Zeichen vdeder 


D428- 

BPL 

$041F 

Bit7 =0, d.h. es kcnmen ncch weitere Zeichen 


D42a- 

JSR 

$0683 

Stack und Deskriptorenstack initialisieren 


D42D- 

HA 

#$50, 

A,Y = Zeiger auf ERROR, Bell 

i 

D42F- 

LOY 

#$03 



0431- 

JSR 

$0B3A 

drucken 

i 

0434- 

LDY 

$76 

= $EF, falls Direktmodus 

1 

0436- 

INY 



1 

0437- 

BEQ 

$043C 



0439- 

JSR 

$ED19 

IN (Zeilennummer) drucken 


Warmstart 




D43C- 

JSR 

$DAFB 

CR drucken 


043F- 

HÄ 

#$00 

Ascii für Ercnptzeichen 


0441- 

JSR 

$052E 

Eingabezeile eitpfangen (X,Y = $1EF; A = 0) 


0444- 

STK 

$B8 

CHRGETT-Zeiger auf Tastatur-mrffer 


0446- 

STY 

$B9 



0448- 

IßR 

$08 

lösche OJ ERR -Flag (Bit7 = 0) 
hole erstes Zeichen 


D44A- 

JSR 

$00B1 


0440- 

■BÜC 


Z aktualisieren 


D44E- 

BEQ 

$043C 

kein Eingabezeichen —> Warmstart 


0450- 

UK 

#$EF 



0452- 

STX 

$76 

setzte Direktmodus 


0454- 

BCC 

$D45C 

C=0, d.h. Ziffer (vgl $00Bl) —> Frograirmzeile 


0456- 

JSR 

$0559 

Basic Keywords kodieren 


0459- 

OME 

$0805 

Befehlszeile ausführen 

i 

Neue Progranmzeile übernehmen 


l! A = 

1. Ziffer der Zeilennuitnier 

■ 

045C- 

riK 

$AF 

Erogrammtextende +1 

WM 

045E- 

STX 

$69 

= Variablenanfang, damit Variablen direkt hinter 

m 

0460- 

LDX 

$B0 

dem Erogrammtext 


0462- 

STX 

$6A 


mW 

0464- 

JSR 

$OAOC 

hole Zeilennuntner aus Text —> 50,51 

m 

0467- 

JSR 

$0559 

i^lesoft Keywords kodieren 


046A- 

STY 

$0F 

Länge der neuen Zeile 


046C- 

JSR 

$061A 

Zeilennummer schon benutzt? C=1 falls ja 

P^' 

p 

046F- 

BCC 

$04B5 

nein, neue Zeile einf^en 


alte Zeile löschen 



0471- 

LDY 

#$01 



0473- 

HÄ 

($9B),Y 

AdrH der folgenden Progranmzeile 


0475- 

STA 

$5F 

als Basiszeiger auf Quellbereich, HByte 


0477- 

um 

$69 

Ende des Programmtextes, LByte 


0479- 

STA 

$5E 

als Basiszeiger auf Quellbereioh, LByte 


047B- 

LOA 

$9C 

AdrH der zu löschenden Zeile 


0470- 

STA 

$61 

als Basiszeiger auf Zielbereich, HByte 
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D47F- 


$9B 

AdrL der zu löschenden Zeile 

D481- 

DEY 



D482- 

SBC 

($9B),Y 

minus AdrL der folgenden Zeile (C war 1) 

D484- 

CLC 


ergibt negative Zeilenlänge 

D485- 

ADC 

$69 

addiert ztm bisherigen Programmtextende, LByte 

D487- 

STA 

$69 

neues Ende des Programmtextes, LEyte 

D489- 

STA 

$60 

als Basiszeiger auf Zielbereich, LByte 

D48ß- 

LDA 

$6A 


D48D- 

ADC 

#$FF 

HByte korrigieren, falls nötig (d.h. falls C=0) 

D48F- 

STA 

$6A 


D491- 

SBC 

$9C 

minus AdrH der alten Zeile 

D493- 

TAX 


ergibt Anzahl zu verschiebender 256-Byte-Blöcke 

D494- 

SEC 



D495- 

LDA 

$9B 

AdrL der alten Zeile 

D497- 

SBC 

$69 

minus neues Ende des prograimitextes 

D499- 

TAY 


ergibt Index auf erstes zu verschiebendes Byte 

D49A- 

BCS 

$D49F 


D49C- 

INX 


Blockzahl korrigieren 

D49D- 

DEC 

$61 

Basiszeiger auf Zielbereich, HByte 

D49F- 

CEC 



D4A0- 

ADC 

$5E 

Index plus Basiszeiger auf Quellbereich, LByte 

D4A2- 

BCC 

$D4A7 

Basiszeiger auf Quellbereich korrigieren falls nötig 

D4Ä4- 

DEC 

$5F 


D4A6- 

CEC 



D4A7- 

LDA 

($5E),Y 

Verschiebeschleife: X zählt volle 256-Byte-Blocks 

D4a9- 

STA 

($60),Y 

Y Zeiger innerhalb eines Blocks 

D4aB- 

INY 



D4ÄC- 

BNE 

$D4A7 


D4AE- 

INC 

$5F 

neuer 256-Byte-Block 

D4B0- 

INC 

$61 


D4B2- 

DEX 



D4B3- 

BNE 

$D4A7 

weitere Blocks 

Neue Prograirmzeile einfögen 

D4B5- 

EDA 

$0200 

erstes Zeichen 

D4B8- 

HEQ 

$D4F2 

Leerzeile, wird nicht eingefügt 

D4BA- 

IDA 

$73 

unteres Stringende := HEMEM (damit Strings gelöscht) 

D4BC- 

LDY 

$74 


D4BE- 

STA 

$6F 


D4C0- 

STY 

$70 


D4C2- 

IDA 

$69 

Ende des Programmtextes+1, LByte 

D4C4- 

STA 

$96 

altes Blockende+1, LByte (für Verschieberoutine) 

D4C6- 

ADC 

$0F 

Länge der neuen Zeile 

D4C8- 

STA 

$94 

neues Blockende+1, LByte 

D4CA- 

IDY 

$6A 


D4CC- 

STY 

$97 

altes Blockende+1, HByte 

D4CE- 

BOC 

$D4D1 


D4D0- 

INY 



D4D1- 

STY 

$95 

neues Blockende+1, HByte 

D4D3- 

JSR 

$D393 

Block verschieben 

D4D6- 

IDA 

$50 

Zeilennumner 

D4D8- 

LDY 

$51 


D4DA- 

STA 

$01FE 

vor Eingabepuffer setzen 

D4ED- 

STY 

$01FF 


D4E0- 

LDA 

$6D 

neues Ende des Prograntntextes +1 

D4E2- 

LDY 

$6E 


D4E4- 

STA 

$69 

eintragen in Variablenanfangs-Vektor 

D4E6- 

STY 

$6A 


D4E8- 

IDY 

$0F 

Zeilenlänge 

D4Eft,- 

LDA 

$01FB,Y 

neue Zeile einfögen 

D4ED- 

DEY 
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D4EE- 

sm 

($9B),Y 


D4F0- 


$D4Ea. 


D4F2- 

J£R 

$D665 

CTiEAR ausführen 

Linkadressen neu berechnen 

D4F5- 


$67 

Anfang des Programmtextes 

D4F7- 

im 

$68 


D4F9- 

sm 

$5E 

auf Zeiger übertragen 

D4BB- 

sry 

$5F 


D4FD- 

CLC 



D4FE- 

im 

#$01 


D500- 

Wh 

($5E),Y 

alte Linkadresse, BByte 

D502- 

BNB 

$D50F 

Prograitmende noch nicht erreicht 

D504- 

Wh 

$69 

Linkadressen konplett, Prograntnendevektor eintragen 

D506- 

sm 

$aF 


D508- 

Wh 

$6A 


nSOA- 

sm 

$B0 


D50C- 

OMP 

$D43C 

—> Warmstart 

D50F- 

iny 

#$04 

Offset auf erstes BefehlsZeichen 

D511- 

INY 


suche Zeilenende (letztes Zeichen = 0) 

D512- 

Wh 

($5E),Y 


D514- 

ENE 

$0511 

weitersuchen 

D516- 

INY 


Zeilenlänge 

D517- 

TXA 



D518- 

ADC 

$5E 

zu Zeiger addieren und als Linkadresse eintragen 

D51a- 

WC 


Linkadresse LEPjde merken 

D51B- 

UX 

#$00 


D51D- 

sm 

($5E),Y 

eintragen 

D51F- 

Wh 

$5F 


D521- 

ADC 

#$00 


D523- 

INY 



D524- 

sm 

($5E).,Y 

HByte eintragen 

D526- 

SBC 

$5E 

Zeiger aktualisieren 

D528- 

sm 

$5F 


D52A- 

BCC 

$D4FE 

weiter mit nächster Zeile (unbedingter Sprung) 

Eingabe einer 

Zeile 


D52C- 

wsc 

«$80 


D52E- 

SK 

$33 

Ascii-Kode für Pranpt-Zeichen 

D530- 

JSR 

$ED6A 

Zeile atpfangen über Monitorroutine GETM 

D533- 

CPX 

#$EF 

X = Zeilenlänge, naximal 239 Zeichen 

D535- 

BOC 

$0539 


D537- 

1£K 

#$EF 


D539- 

Wh 

#$00 


D53B- 

sm 

$0200,X 

0 als Endmarke anfügen 

D53B- 

KA 


Z-Flag aktualisieren 

D53F- 

B0a 

$054C 

LeerZeile, fertig 

D541- 

UDA 

$01FF,X 

in sämtlichen Zeichen Bit7 nullsetzen 

D544- 

AND 

#$7F 


D546- 

sm 

$01FF,X 


D549- 

DSC 



D54A- 

BNE 

$0541 

weitere Zeichen 

D54C- 

Wh 

«$00 


D54E- 

I£K 

#$Er 

X,Y zeigt auf Eingabepuffer -1 

D550- 

WS 

#$01 


D552- 

RTS 




Bififange ein einzelnes Zeichen 

D553- JSR $FDOC Über Monitorroutine RDKEY 
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D556- 

D558- 


äND #$7F 
KTS 


Bit? nullsetzen 


■ 


ÄEplesoft Keywords kodieren 


D559- 

LDX 

$B8 

Zeiger in Eingabepuffer 

D55B- 

DEX 



D55C- 

IDY 

#$04 

Zeiger vorbereiten (vgl. $O5B0) 

D55E- 

STY 

$13 

Bit6 nullsetzen (DATA-Flag) 

D560- 

BIT 

$D6 

teste Autostart-Flag 

D562- 

BPL 

$D56C 

kein Autostart 

D564- 

ELA 


entferne Rücksprungadresse vom Stack 

D565- 

PLA 


D566- 

JSR 

$0665 

CTEAR ausführen 

D569- 

JMP 

$0702 

Programm starten 

D56C- 

INX 


D56D- 

IDA 

$0200,X 

Zeichen aus Tastaturpuffer 

D570- 

BIT 

$13 

DATA-Flag 

D572- 

BVS 

$0578 

gesetzt, Leerzeichen nicht ignorieren 

D574- 

CMP 

#$20 

Ascii für Leerzeichen 

D576- 

BBQ 

$056C 

ignorieren, neues Zeichen holen 

D578- 

STA 

$0E 

sonst merken 

D57A- 

CMP 

#$22 

Anführungszeichen? 

D57C- 

BEQ 

$05F2 

ja, String übernehmen 

D57E- 

BVS 

$05C0 

DATA-Statement, nicht kodieren 

D580- 

CMP 

#$3F 

Fragezeichen? 

D582- 

BNE 

$0588 

nein, »reiter 

D584- 

LDA 

#$BA ® 

Teten für PRINT 

D586- 

BNE 

$05C0 

unbedingter Sprung 

D588- 

CMP 

#$30 

D58Ä- 

BCC 

$0590 

keine Ziffer 

D58C- 

CMP 

#$3C 


D58E- 

BCC 

$D5CD 

Ziffer, oder nicht kodieren 

D590- 

STY 

$AD 

Y retten 

D592- 

ITA 

#$D0 

90,9E Zeiger auf Befehlstabelle (zunächst $CFD0) 

D594- 

STA 

$90 

D596- 

IIÄ 

#$CF 


D598- 

STA 

$9E 


D59A- 

LDY 

#$00 


D59C- 

STY 

$0F 

Token-Zähler löschen 

D59E- 

DEY 

$B8 

Y=$FF, damit zeigt (90),Y auf $D0CF 

D59F- 

SIX 

rette Zeiger für Eingabe-Puffer 

D5A1- 

DEX 


D5A2- 

INY 


erhöhe Zeiger für Befehlstabelle 

D5A3- 

BNE 

$D5A7 

D5A5- 

INC 

$9E 


D5A7- 

INX 



D5A8- 

LDA 

$0200 ,X 

hole Zeichen 

D5AB- 

CMP 

#$20 

Leerzeichen? 

D5AD- 

BEQ 

$05A7 

ja, ignorieren 

D5AF- 

SEC 



D5B0- 

SBC 

($90),Y 

mit Zeichen aus Befehlstabelle vergleichen 

D5B2- 

BEQ 

$05A2 

stimnt überein, vergleiche nächstes Zeichen 

D5B4- 

CMP 

#$80 

D5B6- 

BNE 

$D5F9 

Zeichen stimmt nicht, mit nächsten Befehl versuchen 

.? D5B8- 

CRA 

$0F 

ÄCCU = Token, Bit7 = 1 

‘1 D5BA- 

CMP 

#$C5 

Token für AT? 

Idsbc- 

BNE 

$05CB 

nein 

Idsbe- 

LDA 

$0201,X 

hole folgendes Zeichen 

|d5C1- 

CMP 

#$4E 

Ascii für "N" ? 

D5C3- 

BEQ 

$D5F9 

ja, Interpretation als ATN 

■D5C5- 

CMP 

#$4F 

Ascii für "0" ? 
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D5C7- 

HBQ 

$D5F9 

ja, Interpretation als A TD 


D5C9- 

LCR 

#$C5 

sonst Interpretation als AT 


’DSCB- 

LDY 

$AD 

hole gerettetes Y (Zeiger für kodierte Zeile) 


Einsprung bei 

?, 

0...9, oder DATA 


D5CD- 

HSK 


Zeiger erhöhen 


D5CE- 

INY 




D5CF- 

STA 

$01FB,Y 

Zeichen oder Token eintragen 


D5D2- 

LDA 

$01FB,Y 

Z-Flag aktualisieren 


D5D5- 

BEQ 

$D610 

Endraarke erreicht, Kodierung beendet 


D5D7- 

SEC 




D5D8- 

SBC 

#$3A 

Ascii für ? 


D5DA- 

BEQ 

$D5E0 

ja, DATA-Flag löschen (falls gesetzt) ^ 

$49 + $3A = $83, d.h. Token für DATA? 

D5DC- 

CMP 

#$49 

D5DE- 

BNE 

$D5E2 


D5E0- 

STA 

$13 

ja, DATA-Flag setzen (d.h. Bit6 = 1) 


D5E2- 

SEC 



D5E3- 

D5E5- 

SBC 

BNE 

#$78 

$D56D 

-f ^►/ö = 90 ^, a.n. Toiten nur 
stimmt nicht, vreiter kodieren 


D5E7- 

STA 

$0E 

REM erkannt, bis Endmarlte (A=0l) unkodiert übernehmen 

D5E9- 

LDA 

$0200,X 

hole neues Zeichen 


D5EC- 

BEQ 

$D5CD 

Zeilenende, Routine abschließen 


D5EE- 

CMP 

$0E 

ganerlites Anführungszeichen? (vgl $D57 a) 


D5F0- 

BEQ 

$D5CD 

ja, von nun ab wieder kodieren 


D5F2- 

INY 


sonst weiter unkodiert übernehmen, bis 0 oder " 


D5F3- 

STA 

$01FB,Y 



D5F6- 

INX 




D5F7- 

BNE 

$D5E9 

unbedingter Sprung 


Tabellenzeiger auf nächstes Token setzen 


D5F9- 

UDX 

$B8 

hole Zeiger für Eingalje-Zeile 


D5FB- 

INC 

$0F . 

Tokenzähler erhöhen 


D5FD- 

IDA 

($9D),Y 

hole Zeichen aus Tabelle 


D5EF- 

BK 


Zeiger erhöhen 


D600- 

BNE 

$D604 



D602- 

INC 

$9E 



D604- 

ASL 


Bit7 -> C (gesetzt, falls letztes Zeichen) 


D605- 

BOC 

$D5FD 

weiter 


D607- 

LDA 

($9D),Y 

1. Zeichen des nächsten Befehls in der Tabelle 


D609- 

BNE 

$D5A8 

prüfen, ob es dieser Befehl ist 


D60B- 

IDA 

$0200,X 

kein Befehl passt, Zeichen unkodiert übernelimen 

D60E- 

BPL 

$D5CB 

und mit nächstem Zeichen weiter machen 


Routine 

abschliessen 



D610- 

STA 

$01FD,Y 

Endmarke eintragen 


D613- 

DEC 

$B9 

OIRGET-Zeiger auf $01FF setzen 


D615- 

im. 

#$FF 



D617- 

STA 

$B8 



D619- 

BTS 





Suche Prcjgratimzeile mit gegebener Zeilennotmer 
I: 50,51 Zexlennuimer 

0: gefunden -> C=l; 9B,9C zeigt auf Zeilenanfang 
sonst C=0; 9B,9C zeigt auf nächste Zeile 


D61A- 

IDA 

$67 

Zeiger auf erste Programrazeile 

D61C- 

LDX 

$68 


D61E- 

IDY 

#$01 


D620- 

STA 

$9B 

nach 9 b,9C 

D622- 

STX 

$9C 


D624- 

IDA 

($9B),Y 

Linkadresse, HByte 

D626- 

BEQ 

$D647 

Programm-Ende. Zurück mit C=0 
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D628- 

INY 


D629- 

INY 


D62A- 

LDA 

$51 

D62C- 

CMP 

($9B),Y 

D62E- 

BCC 

$D648 

D630- 

BBQ 

$D635 

D632- 

DEY 


D633- 

BNE 

$D63E 

D635- 

IDA 

$50 

D637- 

DEY 


D638- 

C34P 

($9B) ,Y 

D63A- 

BCC 

$D648 

D63C- 

EEQ 

$D648 

D63E- 

DEY 


D63F- 

LDA 

($9B),Y 

D641- 

TAX 


D642- 

DEY 


D643- 

lUA 

($9B),Y 

D645- 

BCS 

$D61E 

D647- 

dC 


D648- 

«SS 



gesuchte Zeilennummer, HByte 
gefunden? 

gesuchte Zeile existiert nicht 

HByte stimmt, vergleiche LByte 

stimmt nicht, weiter bei nächster Zeile 

unbedingter Sprung 

gesuchte Zeilennuramer, LByte 


existiert nicht, zurück mit C=0 
gesuchte Zeile gefunden, C=1 

setze Zeiger auf i\nfang der nächsten Zeile 


unbedingter Sprung 

Einsprung, falls Zeile nicht gefunden 


Applesoft-Routine NEW 


D649- 

BNE 

$D648 

D64B- 

IDA 

#$00 

D64D- 

STA 

$D6 

D64F- 

ta:^ 


D650- 

STA 

($67),Y 

D652- 

INY 


D653- 

STA 

($67),Y 

D655- 

LDA 

$67 

D657- 

ADC 

#$02 

D659- 

STA 

$69 

D65B- 

STA 

$AF 

D65D- 

IDA 

$68 

D65F- 

ADC 

#$00 

D661- 

STA 

$6A 

D663- 

STA 

$B0 

D665- 

JSR 

$D697 

D668- 

IDA 

#$00 


Applesoft-Routine CLEAR 


D66A- 

BNE 

$D696 

D66C- 

IDA 

$73 

D66E- 

IDY 

$74 

D670- 

STA 

$6F 

D672- 

STY 

$70 

D674- 

IDA 

$69 

D676- 

IDY 

$6A 

D678- 

STA 

$6B 

D67A- 

STY 

$6C 

D67C- 

STA 

$6D 

D67E- 

STY 

$6E 

D680- 

JSR 

$D849 

Stack 

initialisieren 

D683- 

IDX 

. #$55 

D685- 

STX 

$52 

D687- 

PLA 



nur durchführen, falls Etdmarke folgt 
lösche Autostart-Flag 

setze 2 Byte als Programra-Endmarke ( = 0) auf 
Programm-Anfang (normal $0801,$0802) 

setze Anfang der Variablen und Prograttm-Ende +1 
jeweils auf Programm-Anfang +2 


setze CHRGET-Zeiger auf Programm-Anfang -1 
(XEAR durchführen 


nur durchführen, falls Endzeichen folgt 
unteres String-Ende auf HIMEM setzen, 
d.h. sämtliche Strings löschen 


Feldvariablen-Anfangszeiger und Variabien- 
Endezeiger s= variablen-Anfangszeiger, 
d.h. sämtliche Variablen löschen 


rESTORE durchführen 


Deskriptoren-Stack initialisieren 
rette Rücksprungadresse 
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D688- 

TAY 



D689- 

PIA 



b68A- 

I£K 

#$F8 


D68C- 

oxs 


Stack initialisieren 

D68D- 

FHA 


Rücksprungadresse wieder auf Stack 

D68E- 

TYA 



D68F- 

EHA 



D690- 

IDA 

#$00 


D692- 

STA 

$7A 

CDNT unmöglich machen 

D694- 

STA 

$14 

normale Variablenbehandlung 

D696- 

RTS 



CHHGET-Zeiger auf Prograitmstart -1 setzen 

D697- 

CLC 



D698- 

LOA 

$67 

67,68 zeigt auf Prograimistart 

D69A- 

ADC 

#$HF 

subtrahiere 1 

D69C- 

STA 

$B8 


D69E- 

lOA 

$68 


D6A0- 

ADC 

#$EF 

korrigiere HByte, falls nötig 

D6A2- 

STA 

$B9 


D6A4- 

EIS 



J^lesoft-Routine UST 


D6A5- 

BCC 

$D6B1 

Ziffer folgt, d.h. Anfangswert angegeben 

D6A7- 

BBQ 

$D6B1 

gesamtes Progranm auflisten 

D6A9- 

CMP 

#$C9 

” p 

D6AB- 

BBQ 

$D6B1 

Endpunkt angegeben oder bis Programm-Ende 

D6AD- 

CMP 

#$2C 


D6ÄF- 

mE 

$0696 (21; 

falsche Syntax, UST nicht durchführen 

D6B1- 

JSR 

$DA0C 

hole Zeilennr. aus Programmtext, falls C=0 

D6B4- 

JSR 

$D61A 

suche zugehörige Zeile 

D6B7- 

JSR 

$00B7 

nächstes Befehlszeichen 

D6BA- 

BBQ 

$D6CX: 

Endmarke 

D6BC- 

CMP 

#$C9 

oder ? 

D6BE- 

BBQ 

$D6C4 


D6C0- 

CMP 

#$2C 


D6C2- 

BNE 

$0648 

nein, falsche Syntax, -> Return 

D6C4- 

JSR 

$00B1 

neues Befehlszeichen 

D6C7- 

JSR 

$DA0C 

falls Ziffer, Zeilennr. aus Progranmtext holen 

D6Ca- 

BNE 

$0696 

falls letztes Zeichen keine Endmarke, -> Return 

D6CX;- 

PLA- 


Rücksprungadresse vom Stack entfernen 

D6CD- 

PLA) 



D6CE- 

lOA 

$50 

50,51 = Zeilennr., bis zu der gelistet wird 

D6D0- 

CRA 

$51 

( beide null, falls nicht angegeben) 

D6D2- 

Bi;^ 

$060A 

D6D4- 

IDA 

#$IV 

da nicht angegeben, auf Maximalwert setzen 

D6D6- 

STA 

$50 


D6D8- 

STA 

$51 


DÖDA- 

IDZ 

#$01 


D6DC- 

IDA 

($9B),Y 

Linkadresse, HByte 

D6DE- 

BEQ 

$0724 

Prograramende erreicht, Routine abschliessen 

D6E0- 

JSR 

$0858 

prüfe, db Ctrl C gedrückt wurde 

D6E3- 

JSR 

$DAFB 

CK drucken 

D6E6- 

INY 



D6E7- 

IDA 

($9B) ,Y 

aktuelle Zeilennuniner nach X,A 

D6E9- 

TAX 



D6EA- 

niz 



D6EB- 

IDA 

($9B),Y 


D6ED- 

CMP 

$51 

mit Bereichsende vergleichen 
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DSEF- 

BNE 

$06F5 


D6F1- 

CPX 

$50 


D6F3- 

BBQ 

$06F7 


D6F5- 

BCS 

$0724 • 

überschritten, fertig 

D6F7- 

STY 

$85 

Index retten 

D6F9- 

JSR 

$E024 

Zeilennunmer drucken 

0603- 

liDA 

#$20 

Leerzeichen 

D6FE- 

im 

$85 

Index wieder holen 

0700- 

ÄND 

#$7F 


0702- 

JSR 

$DB5C 

Ascii-Zeichen im Accu drucken 

0705- 

LDA 

$24 

Cursor-Spalte 

0707- 

CMP 

#$21 

kleiner als ^3 

0709- 

BCC 

$0712 

O70B- 

JSR 

$DAFB 

sonst neue Zeile (CR drucken ).s=s^ 

O70E- 

LDA 

#$05 


0710- 

STA 

$24 

und Cursor in Spalte 5 setzen 

0712- 

im 



0713- 

LDA 

($9B),Y 

nächstes Zeichen 

0715- 

BNE 

$0734 

nicht Zeilenende, —> zur Druckroutine 

0717- 

TAY 


=0 

0718- 

LDA 

($9B),Y 

Linkadresse {= Anfang der nächsten Zeile) 

071A- 

TAX 



071B- 

INY 



071C- 

UÄ 

($9B),Y 


D71E- 

STX 

$9B 

auf Zeiger übertragen 

0720- 

STA 

$9C 


0722- 

BNE 

$B60A 

weiter mit dieser neuen Zeile (inmer) 

”"Vd724- 

LDA 

#$0O 

Ascii für CR 

0726- 

JSR 

$DB5C 

ausgeben 

0729- 

JMP 

$0702 

weiter in Interpreter-Hauptschleife 

Hole neues Zeichen aus Arplesoft-Befehlstabelle 

072C- 

INY 


Zeiger um 1 erhöhen 

0720- 

BNE 

$0731 

072F- 

INC 

$9E 


0731- 

IDA 

<$90),Y 

Zeichen laden 

0733- 

RTS 



Oruckroutine 

für LIST 


0734- 

BPL 

$0702 

kein Token, daher drucken und weiter 

0736- 

SBC 


Token 

0737- 

SBC 

#$7F 

minus 127 

0739- 

TAX 


als Zähler Suchschleife 

073A- 

STY 

$85 

Zeiger für Programmzeile retten 

073C- 

LDY 

#$oo 

Zeiger auf Anfang der Befehlstabelle 

073E- 

STY 

$90 


0740- 

LDY 

#$CF 


0742- 

STY 

$9E 


0744- 

LOY 

#$FF 

(90),Y zeigt nun auf $D0CF 

0746- 

DEX 


nächster Befehl (0, falls richtiger Befehl) 

0747- 

BEQ 

$0750 

ist der Fall, Befehl ausdrucken 

0749- 

JSR 

$D72C 

hole nächstes Zeichen 

074C- 

BPL 

$0749 

weiter, bis Befehlsende gefunden 

074E- 

BMI 

$0746 

weiter mit nächstem Befehl 

0750- 

im 

#$20 

Leerzeichen 

0752- 

JSR 

$0B5C 

drucken 

0755- 

JSR 

$072C 

neues Zeichen aus Befehlstabelle 

0758- 

BMI 

$075F 

Bit7=1, Befehl fertig 
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D75A- 

JSR 

SDB5C 

Zeichen drucken 

D75D- 

BNE 

$D755 

vreiter mit nächstem Zeichen (immer) 

D75F- 

JSR 

$DB5C 

letztes Zeichen drucken 

D762- 

IDA 

#$20 

Leerzeichen 

D764- 

BNE 

$D6EE 

weiter im Listing (immer) 

AEplesoft-Routine lOR 


D766- 

IDA 

#$80 


D768- 

STA 

$14 

verbiete Integervariable als Laufvariable 

D76A- 

JSR 

$nA46 

LET weist Laufvariable Anfangswert zu 

D76D- 

JSR 

$D365 

prüfe, ob schon eine Schleife mit dieser Laufvar. 

D770- 

BNE 

$D777 

nein 

D772- 

■ECA 


Stackpointer auf alte Schleife 

D773- 

ADC 

#$0F 

altferne alte Schleife vom Stack 

D775- 

TRX 



D776- 

IXS 



D777- 

ELA 


Rücksprungadresse entfernen 

D778- 

PIA 



D779- 

IDA 

#$09 


D77B- 

JSR 

$D3D6 

Platz für 18 Byte auf dem Stack? ja: hier weiter 

D77E- 

JSR 

$D9A3 

suche nächsten Befehl (Abstand kommt in Y) 

D781- 

ac 


Startadresse des Sciileifenkörpers berechnen; 

D782- 

Ta 


Abstand 

D783- 

ADC 

$B8 

zu a)ctuellan Zeiger addieren 

D785- 

PEiA 


und auf Stack schieben 

D786- 

IDA 

$B9 


D788- 

ADC 

#$00 


D78A- 

EHA 



D78B- 

IDA 

$76 

aktuelle Zeilennranmer auf Stack schieben 

D78D- 

IHA 



D78E- 

IDA 

$75 


D790- 

EHA 



D791- 

IDA 

#$C1 6^ 

Token für TO 

D793- 

JSR 

$DBC0 

Syntax-Prüfung ob TD folgt 

D796- 

JSR 

$DD6A 

Prüfung, ob Laufvariable numerisch 

D799- 

JSR 

$DD67 

Ausdruck nach TO auswerten, muß numerisch sein 

D79C- 

LCA 

$A2 

Vorzeichen von EftCl (Bit7=0 falls + ) 

D79E- 

CRÄ 

#$7F 

in MSB von FACl eintragen 

D7A0- 

AND 

$9E 


D7A2- 

STA 

$9E 


D7A4- 

IDA 

#$AF 

Adresse für indirekten Sprung: $D7AF 

D7A6- 

IDY 

#$D7 


D7A8- 

STA 

$5E 

mer)cen 

D7AA- 

STY 

$5F 


D7AC- 

JMP 

$DE20 

FACl (Schleifenendwert) auf Stack, dann hier weiter 

D7AF- 

IDA 

#$13 

Zeiger auf FP-Kbnstante = 1 

D7B1- 

IDY 

#$E9 


D7B3- 

JSR 

$EAF9 

1 als Standart-STEP-Wert auf Stack 

D7B6- 

JSR 

$00B7 

neues Befehlszeichen 

D7B9- 

CMP 

#$C7 

Token für STEP? 

D7BB- 

BNE 

$D7C3 

nein, STEP-Wert bleibt 1 

D7BD- 

JSR 

$00B1 

hole neues Zeichen 

D7C0- 

JSR 

$DD67 

STEP-Ausdruck auswerten, muß numerisch sein 

D7C3- 

JSR 

$EB82 

Vorzeichen nach Accu 

D7C6- 

JSR 

$DE15 

FACl (STEP-Wert) und VZ auf Stack 

D7C9- 

IDA 

$86 

Zeiger auf Laufvariable 85,86 

D7CB- 

PHA 


auf Stack 

D7CC- 

IDA 

$85 


D7CE- 

HiA 



D7CP- 

UÄ 

#$81 

Kennzeichen für Sdileifenparameter 

D7D1- 

EEJA 


auf Stack 
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Interpreter-Hai:ptschleife (Befehlsausführung) 


D7D2- 

TSX 


Stackpointer nerlcen 

D7D3- 

STX 

$F8 


D7D5- 

JSR 

$0858 

Citri C gedrücdct? Falls nein, hier weiter 

D7D8- 

um 

$B8 

B8,B9 zeigt auf Zeichen hinter letzten Befehl 

D7DA- 

U)Y 

$B9 


D7DC- 

im 

$76 

= 255, falls Oirektmodus 

D7DE- 

ICQX 



D7DF- 

BEQ 

$07E5 

Direktmodus 

D7E1- 

STA 

$79 

Zeiger auf aktuellen Befehl -1 retten 

D7E3- 

STX 

$7A 


D7E5- 

LDX 

#$00 


D7E7- 

um 

($B8),Y 

hole dieses Zeichen, muß Trennzeichen sein 

D7E9- 

BNE 

$0842 

nicht Zeilenende, Zeichen muß sein 

D7EB- 

LCfY 

#$02 

Zeilenende, prüfe, ob Programnende 

D7BD- 

um 

($B8),Y 

Linkadresse HByte 

D7EF- 

diC 



D7F0- 

BB2 

$0826 

Programmende —> Warmstart (C=0!) 

D7F2- 

INY 


sonst neue Zeilennunmer holen 

D7F3- 

LOA 

($B8),y 


D7F5- 

STA 

$75 

und in Zeilenzeiger eintragen 

D7F7- 

INY 



D7F8- 

um 

($B8),Y 


D7FA- 

STA 

$76 


D7PC- 

TYA 


Abstand 

D7FD- 

ADC 

$B8 

zu CHRGET-Zeiger addieren 

D7EF- 

STA 

$B8 


D801- 

BCC 

$0805 


D803- 

INC 

$B9 


Ersteinsprung bei Direktmodus (vgl $0459) 

0805- 

BIT 

$F2 

prüfe TOACE-Flag 

0807- 

BPL 

$0810 

kein IRACIE 

0809- 

U3X 

$76 

= 255, falls im Direktmodus 

O80B- 

INX 



O80C- 

BEQ 

$0810 

kein TEACE, da Direktmodus 

O80E- 

um 

#$23 

Ascii für "#" 

0810- 

JSR 

$OB5C 

drucken 

0813- 

U3X 

$75 

enthält aktuelle Zeilennunmer 

0815- 

um 

$76 


0817- 

JSR 

$E024 

Zeilennunmer drucken 

D81A- 

JSR 

$OB57 

Leerzeichen drucken 

0810- 

JSR 

$00B1 

hole Befehlszeichen 

0820- 

JSR 

$0828 

i^lesoft-Routine aufrufen 

0823- 

JMP 

$0702 

weiter in Interpreter-Hauptschleife 

0826- 

BBQ 

$088A 

Sprung zu Warmstart (vgl $D7F0) 


Afplesoft-Routine aufrufen 
I: Aocu «ithält Token 


0828- 

BBa 

$0857 

Endzeichen —> fertig 

D82A- 

SBC 

#$80 


^ D82C- 

BOC 

$D83F 

Itein Token, kann nur LET-Anweisung sein 

“"'D82E- 

CMP 

#$40 2u P 

Tdcen mit $C0 vergleichen 

0830- 

BCS 

$0846 

kein primärer Befehl —> SYNTAX ERROR 

0832- 

ASL 


sonst Token verdoppeln 

0833- 

TAY 


als Zeiger für Sprungtabelle 

0834- 

um 

$0001, Y 

Sprungtabelle enthält Adresse-1 der aufzurufenda 

0837- 

HiA 


Routine —> Stack 

0838- 

um 

$0000 ,Y 
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D83B- 

EHA 



D83C- 

BMP 

$00B1 

hole Zeichen nach Befehl, mit RTS zur Routine 

D83F- 

BMP 

$DA46 

Sprung zur EET-Routine (vgl. $D82C) 

D842- 

OMP 

#$3A 

Zeichen = (vgl. $D7E9) 

D844- 

BEQ 

$D805 

ja, neue Routine aufrufen 

D846- 

BMP 

$DBC9 

sonst SYNTAX ERROR 

ftEplesoft-Routine RESTORE 

D849- 

SEE 



D84A- 

LDA 

$67 

67,68 = Anfang progranmtext 

D84C- 

SBC 

#$01 

minus 1 

D84E- 

LDY 

$68 


D850- 

BCS 

$D853 


D852- 

DEY 


HByte korrigieren 

D853- 

STA 

$7D 

als DATA-Zeiger eintragen 

D855- 

STY 

$7E 


D857- 

RTS 



Prüft, 

ob Ctrl C gedrückt wurde 

D858- 

LDA 

$C000 

Tastatur-Register 

D85B- 

CMP 

#$83 

Ctrl C gedrückt? 

D85I> 

BEQ 

$D860 

ja, STOP durchführen 

D85F- 

RTS 


sonst weiter 

Extra Einsprung STOP/END-Routine 

D860- 

JSR 

$D553 

Zeichen von Tastatur holen (Bit7=0) 

D863- 

im 

#$EF 

als Fehlerkode 

D865- 

BIT 

$D8 

ON ERR -Flag gesetzt? 

D867- 

BPL 

$D86C 

nein 

D869- 

JMP 

$F2E9 

ONERR-FehlerBehandlung 

D86C- 

CMP 

#$03 

C=l, falls Ctrl C oder größer 

J^lesoft-Routine STOP 


I: C=1 

(falls keine Ziffer folgt) 

D86E- 

BCS 

$D871 


Applesoft-Routine END 


D870- 

CLC 



D871- 

BNE 

$D8AF 

es folgt kein Endezeichen, Routine nicht durchführen 

D873- 

IßA 

$B8 

Zeiger auf Trennzeichen vor letztem Befehl 

D875- 

IDY 

$B9 

D877- 

IIK 

$76 

=255 falls Direktmodus 

D879- 

INX 



D87A- 

BEQ 

$D888 

Direktmodus 

D87C- 

STA 

$79 

letzten Befehl 

D87E- 

STY 

$7A 


D880- 

IDA 

$75 

und letzte Zeilennumner retten 

D882- 

LDY 

$76 


D884- 

STA 

$77 


D886- 

STY 

$78 


D888- 

PIA 


Rüoksprungadresse entfernen 

D889- 

PIA 



D88A- 

LDA 

#$5D 

Zeiger auf Text "BE(EAK" 

D88C- 

LDY 

#$D3 


D88E- 

BCC 

$D893 

C=0 falls END 

D890- 

JMP 

$D431 

STOP: BREAK-Meldung drucken, dann Warmstart 
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D893- OMP $D43C 


END: Warmstart 


Ajplesoft-Routine OONT 


D896- 

BNE 

$D8AF 

D898- 

IßX 

#$D2 

D89A- 

LDY 

$7A 

D89C- 

BNE 

$D8A1 

D89E- 

OMP 

$D412 

D8A1- 

riA 

$79 

D8A3- 

STA 

$B8 

D8A5- 

STY 

$B9 

D8A7- 

UDA 

$77 

D8A9- 

IDY 

$78 

D8AB- 

STA 

$75 

D8AD- 

STY 

$76 

D8ÄF- 

RTS 



Applesoft-Routine SAVE 
D8B0- SEC 

D8B1- 

UDA 

$AF 

D8B3- 

SBC 

$67 

D8B5- 

STA 

$50 

D8B7- 

IJDA 

$B0 

D8B9- 

SBC 

$68 

D8HB- 

STA 

$51 

D8BD- 

JSR 

$D8F0 

D8C0- 

JSR 

$FECD 

D8C3- 

JSR 

$D901 

D8C6- 

JMP 

$FECD 


Nächstes Zeichen kein Trennzeichen, —> RTS 
Kcxte für CäN'T COSITINÜE ERROR 

=0 nach CDEÄR (vgl. $D692), sonst geretteter Zeiger 
(DWT durchführen 
CÄN'T (XINTINUE ERROR 

geretteter Zeiger vor letzten Befehl, LByte 
—> CHRGET-Zeiger 

Nunmer der unterbrochenen Zeile 

aktuelle Zeilennuimer 


Programntext-Elide 

minus Programntext-Anfang 

ergibt Länge des Programmtextes 


Länge in 50,51 

setze Monitor-Register 

Monitorroutine SAVE speichert Längendaten 

setze Monitor-Register für Prograirmtext 

Monitorroutine SAVE speichert Programmtext 


Afplesoft-Routine IDAD 


D8C9- 

JSR 

$D8F0 

D80C- 

JSR 

$FEFD 

D8CF- 

CLC 


D8D0- 

LDA 

$67 

D8D2- 

ADC 

$50 

D8D4- 

STA 

$69 

D8D6- 

LDA 

$68 

D8D8- 

ADC 

$51 

D8DA- 

STA 

$6ä 

D8DC- 

UÄ 

$52 

D8EE- 

STA 

$D6 

D8E0- 

JSR 

$D901 

D8E3- 

JSR 

$FEFD 

D8E6- 

BIT 

$D6 

D8E8- 

BPL 

$D8ED 

D8EA- 

JMP 

$D665 

D8ED- 

JMP 

$D4F2 

Setze 

Mcxlitor-Register 

D8F0- 

LDA 

#$50 

D8F2- 

LDY 

#$00 

D8F4- 

STA 

$3C 

D8F6- 

STY 

$3D 

D8F8- 

IDA 

#$52 

D8FA- 

STA 

$3E 

D8FC- 

STY 

$3F 


setze Monitor-Register für Längendaten 
Mon. LOAD bringt Länge nach 50,51 

Progranmtext-Anfang 
plus Länge 

ergibt Progrannitext-Erde +1 


Äutostart-Flag eintragen 

setze Monitor-Register für Programmtext 

Mcai. IDAD lädt Prograimitext 

prüfe Autostart-Flag 

nicht gesetzt 

RUN durchführen 

CLEÄR durchführen, dann Warmstart 


für Längendaten 
Zeiger auf $0050 

nach Monitor-Register A1L,A1H 

A,Y . zeigt auf $0052 

nach Monitor-Register A2L,A2H 
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D8FE- 

STY 

$D6 

Y=0, d.h. lösche Autustart-Modus 

D900- 

RTS 



Setze Monitor-Register für Programmtext 

D901- 

KA 

$67 

Progranmbext-Anfang 

D903- 

w 

$68 


D905- 

STA 

$3C 

—> A1L,A1H 

D907- 

STY 

$3D 


D909- 

LDA 

$69 

Programmtext-Enie +1 

D90B- 

LDY 

, $6A 


D90D- 

STA 

$3E 

—> A2L,A2H 

D90F- 

STY 

$3F 


D911- 

RTS 



i^lesoft-Routine RUN 


D912- 

PHP 


rette Z-Flag ( gesetzt, falls Trennzeichen folgt 

D913- 

DEC 

$76 

lösche Direkt-Flag (d.h. nun sicher <> 255) 

D915- 

ELP 



D916- 

BN£ 

$D91B 

es folgt kein Trennzeichen —> bedingtes RUN 

D918- 

JMP 

$D665 

CHRGBT setzen, CLEAR durchf., mit RTS nach $D7D2 

D91B- 

JSR 

$D66C 

CLEAR durchführen 

D91E- 

JMP 

$D935 

weiter mit GOTO 

i^lesoft-Routine QOSCB 


D921- 

LDA 

#$03 


D923- 

JSR 

$D3D6 

6 Byte Platz auf Stack? (5 werden benötigt) 

D926- 

m 

$B9 

CHRGET-Zeiger auf Stack 

D928- 

FHA 



D929- 

LDA 

$B8 


D92B- 

mk 



D92C- 

IDA 

$76 

aktuelle Zeilennunmer auf Stack 

D92E- 

PHA 



D92F- 

LDA 

$75 


.. D931- 

PHA 



—'D932- 

LDA 

#$B0 ^ 

Kennzeichen im Stack für RETURN-Parameter 

/ D934- 

I«A 


auf Stack 

D935- 

JSR 

$00B7 

hole erste Ziffer des Sprungziels 

D938- 

JSR 

$D93E 

(30T0 durchführen 

D93B- 

JMP 

$D7D2 

weiter in Interpreter-Hauptschleife 

Applesoft-Routine GOTO 


D93E- 

JSR 

$DA0C 

Zeilennurtmer aus Prograrnntext nach 50,51 

D941- 

JSR 

$D9A6 

suche Zeilenende (Abstand —> Y) 

D944- 

LDA 

$76 

aktuelle Zeilennunmer, HByte 

D946- 

CMP 

$51 

anzuspringende Zeilennummer, HByte 

D948- 

BGS 

$D955 

Zielzeile nicht hinter aktueller Zeile 

D94A- 

TYA 


Länge dieser Zeile 

D94B- 

SED 



D94C- 

ADC 

$B8 

addieren, CHRGBT zeigt nun auf nächste Zeile 

D94E- 

LDX 

$B9 


D950- 

BCC 

$D959 


D952- 

INX 



D953- 

BCS 

$D959 

suche ab aJctueller Zeile nach Zielzeile 

D955- 

LDA 

$67 

suche ab Progranm-Anfang nach Zielzeile 

D957- 

LDX 

$68 


D959- 

JSR 

$D61E 

suche Zeile mit Zeilennurrmer in 50,51 

D95C- 

BOC 

$D97C 

nicht gefunden —> UNDEF'D STATEMENT ERROR 
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D95E- 

LCft 

$9B 

scHist Startadresse 

D960- 

SBC 

#$01 

minus 1 

D962- 

STA 

$B8 

—> CHRGET-Zeiger 

D964- 

LDA 

$9C 


D966- 

SBC 

#$00 


D968- 

STA 

$B9 


D96A- 

KTS 


zurück zur Interpreter-Hauptschleife 

;^plesoft-Routinen 

RETURN, POP 

D96B- 

BNE 

$D96A 

nur durchführen, falls Trennzeichen folgt 

D96D- 

LDA 

#$FF 

verhindern, daß Laufvariable erkannt wird, falls 

D96F- 

STA 

$85 

offene POR/lEXT-Schleife auf Stack 

D971- 

JSR 

$D365 

Stack untersuchen 

D974- 

TXS 


entferne 2 Returnadressen und evtl. Schleifenparanet 

D975- 

CMP 

#$B0 

RETURN-Earaineter ? 

D977- 

BEQ 

$0984 

ja, weiter mit RETURN/FOE 

D979- 

wx 

#$16 

Kode für RETURN WITHOUT GOSUB ERROR 

D97B- 

BIT 

$5AA2 

= LDX #$5A, d.h. Kode für UNDEF'D STATEMEMT ERROR 

D97E- 

JMP 

$D412 

zur Fehlerverwaltung 

D981- 

OMP 

$DBC9 

SYNTAX ERROR 

D984- 

ELA 


= BO 

D985- 

PLA 


Zeilennumtner LByte 

D986- 

CPY 

#$42 

Y= <Token - $80) x 2; d.h. POP? 

D988- 

BEQ 

$D9C5 

ja, POP durchführen 

D98A- 

STA 

$75 

alte Zeilennutimer wieder hersteilen 

D98C- 

PLA 



D98l>- 

STA 

$76 


D98F- 

ELA 


alten CHRGET-Zeiger wieder herstellen 

D990- 

STA 

$B8 

D992- 

PLA 



D993- 

STA 

$B9 


D995- 

JSR 

$D9A3 

suche nächstes Trennzeichen (Abstand —> Y) 

D998- 

TYA 


Abstand 

D999- 

CDC 



D99A- 

ADC 

$B8 

addieren, d.h. CHRGET zeigt auf nächsten Befehl 

D99C- 

STA 

$B8 

D99E- 

BCC 

$D9A2 


D9A0- 

INC 

$B9 


D9A2- 

RTS 




Suche nächstes Trenn 2 eichen / Zeilenende 
0: Abstand in Y 

Einsprung für Trennzeichen suchen 


D9A3- 

LDX 

#$3A 

Ascii für 

D9A5- 

BIT 

$00A2 

—> LDX #$00; Einsprung für Zeilenende suchen 

D9ä8- 

STX 

$0D 

Suchmarke rterken 

D9AA- 

lüY 

#$00 


D9AC- 

STY 

$0E 

Zeilenende als alternative Suchmarke 

D9AE- 

LDA 

$0E 

Suchmarken vertaxKchen 

D9B0- 

LDX 

$0D 


D9B2- 

STA 

$0D 

enthält alternatives Suchzeichen 

D9B4- 

STX 

SOE 

enthält primäres Suchzeichen 

D9B6- 

LDA 

($B8),Y 

hole. Zeichen aus Programmzeile 

D9B8- 

BEQ 

$D9A2 

Zeilenende, fertig 

D9BA- 

CMP 

$0E 

primäres Suchzeichen? 
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D9BC- 

BEQ 

$D9A2 

ja, fertig 

D9BE- 

INY 



D9BF- 

CMP 

#$22 

Anführungszeichen? 

D9C1- 

HSIE 

$D9B6 

nein, weitersuchen 

D9C3- 

BEQ 

$D9AE 

innerhalb String ignorieren 

POP durchführen 


D9C5- 

PIA 


Zeilennumtier HByte und 

D9C6- 

PIA 


CHRGET-Zeiger vom Stack entfernen 

D9C7- 

PLA 



D9C8- 

RTS 



i^lesoft-Routine IF 


D9C9- 

JSR 

$DD7B 

Bedingung auswerten 

D9O0- 

JSR 

$00B7 

nächstes Zeichen nach Bedingung 

D9CF- 

CMP 

#$AB 8^- 

Token für GOTO? 

D9D1- 

BEQ 

$D9D8 

ja 

D9D3- 

im 

#$C4 B4- 

Token für THEN 

D9D5- 

JSR 

$DECO 

muß folgen, sonst SYNTAX EKROR 

D9D8- 

IDA 

$9D 

Exponent von FACl, nicht null falls Bed. erfüllt 

D9im- 

BÜ3E 

$D9E1 

Bedingung erfüllt 

Einsprung Applesoft-Routine REM 

D9DC- 

JSR 

$D9A6 

Zeilenende suchen 

D9DF- 

BEQ 

$D998 

CHRGET auf neue Zeile, dort weiter (inmer springen) 

D9E1- 

JSR 

$00B7 

hole nächstes Zeichen 

D9E4- 

BCS 

$D9E9 

keine Ziffer 

D9E6- 

JMP 

$D93E ' 

Ziffer, weiter bei GOTO 

D9E9- 

OMP 

$D828 , 

zur Befehlsausführung 

Äpplesoft-Routine C*J 


D9EC- 

JSR 

$E6F8 

hole 1-Byte-Integer aus Programmtext —> Al 

D9EF- 

HJA 


nächstes Zeichen (im Accu) auf Stack retten 

D9F0- 

CMP 

#$B0 5F 

Token^für QOSüB? 

D9F2- 

BEQ 

$D9F8 

ja \ 

D9F4- 

CMP 

#$AB ig 

Token für GOTO? 

D9F6- 

BNE 

$D981 

nein, —> SYNTAX EKROR 

D9F8- 

DEC 

$A1 

Index als Zähler 

D9FA- 

HNE 

$DAOO 

gewünschte Sprungadresse noch nicht erreicht 

D9PC- 

ELA 


Token 

D9FD- 

OMP 

$D82A 

GOTO / GOStB ausführen 

DAOO- 

JSR 

$00B1 

hole neues Zeichen 

DA03- 

JSR 

$nAOC 

um eine Sprungadresse weiterrücken 

EIA06- 

CMP 

#$2C 

Sprungadresse gefolgt von ? 

DA08- 

BEQ 

$D9F8 

ja, weiter 

DADA- 

ELA 


sonst ON-Stateraent ignorieren 

DAOB- 

RTS 



Zellennumner 

aus Programmtext holen 

I: Accu 

= 1. 

Zeichen, C=0 

falls Ziffer 

0: 50,51 enthält Zeilennr., Aocu nächstes Zeichen 

DAOC- 

UCK 

#$00 


DAOE- 

SOX 

$50 

50,51 löschen 

DAlO- 

STX 



DA12- 

BCS 

$nA0B (iV 

keine Ziffer, fertig 

DA14- 

SBC 

#$2F 

#$30 subtrahieren (C=0I) ergibt reine Ziffer 

DAie- 

STA 

$0D 

merken 
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DA18- 

IDA 

$51 

HByte des Zwischenergebnisses 

DAIA- 

STA 

$5E 

in Hilfsregister für Multiplikation mit zehn 

DAIC- 

CMP 

#$19 

vergleichen mit 25 

DAlE- 

BCS 

$D9F4 

25 X 256 X 10 = 64000 —> zu groß, SYNTAX ERROR 

DA20- 

LDA 

$50 

Accu = Hilfsregister LByte, C=0 

DA22- 

ASL 


X 2 

DA23- 

RDL 

$5E 


nA25- 

ASL 


X 2 

DA26- 

ROL 

$5E 


DA28- 

ADC 

$50 

50,51 addieren 

DA2A- 

STA 

$50 


DA2C- 

IDA 

$5E 


DA2E- 

ADC 

$51 


DA30- 

STA 

$51 

damit verfünffacht 

DA32- 

ASL 

$50 

verdoppeln 

DA34- 

ROL 

$51 

also insgesamt xlO, d.h, van 1 Dezimale verschoben 

DA36- 

LDA 

$50 


DA38- 

ADC 

$0D 

gemerkte Ziffer addieren 

DA3A- 

STA 

$50 


DA3C- 

BCC 

$DA40 


DA3E- 

INO 

$51 

HByte korrigieren falls nötig 

nA40- 

JSR 

$00B1 

hole nächstes Zeichen 

DA43- 

JMP 

$DA12 

weiter, falls Ziffer und kein Überlauf 

Applesoft-Routine LET 


DA46- 

JSR 

$DFE3 

angegebene Variable suchen oder neu einrichten 

nA49- 

STA 

$85 

Zeiger auf diese Variable retten 

IÄ4B- 

STY 

$86 


DA4D- 

LDA 

#$D0 

AB^für "=■■ 

DA4F- 

JSR 

$DBC0 

muß folgen, sonst SYNTAX ERROR 

DA52- 

IDA 

$12 

Flags für Integervariable und 

tÄ54- 

PHA 



DASS- 

LDA 

$11 

Stringvariable 

nA57- 

IHA 


auf Stack 

DASS- 

JSR 

$DD7B 

Ausdruck auswerten 

DASS- 

ELA 


Bit7 = 1 falls Stringvariable angegeben wurde 

DA5C- 

ROL 


Bit7 —> C 

DA5D- 

JSR 

$DD6D 

stintnen Ausdruck und Variable überein? nein -> EEiRC 

DA60- 

BNE 

$DA7A 

Stringausdruck in Stringvariable eintragen 

nA62- 

PLA 


Bit7 = 1 falls Integervariable angegeben wurde 

DA63- 

BPL 

$DA77 

FP-Variable 

DASS- 

JSR 

$EB72 

FACl runden 

DASS- 

JSR 

$E10C 

in INT umwandeln (in A0,Al) 

DA6B- 

ILY 

#$00 


DA6D- 

LDA 

$A0 

Integer in Variable eintragen 

DA6F- 

STA 

($85),Y 

85,86 dient als Zeiger auf die angegebene Variable 

DA71- 

im 



nA72- 

UA 

$A1 


DA74- 

STA 

($85),Y 


DA76- 

RTS 



DA77- 

JMP 

$EB27 

FACl in Variable eintragen ( 85,86 als Zeiger ) 


Stringdeskriptor in Variable eintragen 

I: A0,A1 zeigt auf Deskriptor; 85,86 auf Variable 

0: 8C,8D zeigt auf Originaldeskriptor; Y=2 

DA7A- ELA Einsprung von LBT, Integerflag entfernen 

DA7B- EDY #$02 

DA7D- LDA ($A0),Y Stringanfang im Stringbereich, d.h. >= 6F,70 ? 
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DA7F- 

CMP 

$70 

vergleiche HByte 

DA81- 

BOC 

$DA9A 

nein, vreiter - 

DA83- 

BNE 

$DA8C 

ja, prüfe 2. Vorraussetzung 

DA85- 

DEY 



DA86- 

IDA 

($A0),Y 


nA88- 

CMP 

$6F 

vergleiche LByte 

DA8A- 

BCC 

$DA9A 

nicht im Stringbereich, veiter 

nA8C- 

LDY 

$A1 

Deskriptor im Vcuriablenbereich, d. h. >= 69,6A ? 

nA8E- 

CPY 

$6A 

vergleiche HByte 

DA90- 

BCC 

$DA9ä 

nein, weiter 

DA92- 

BNE 

$DAA1 

ja, String in Stringbereich übertragen 

nA94- 

IDA 

$A0 


DA96- 

CMP 

$69 

vergleiche IByte 

DA98- 

BCS 

$DAAl 

String in Stringbereich übertragen 

nA9A- 

IDA 

$A0 

Zeiger auf Deskriptor 

DA9C- 

LDY 

$A1 


DA9E- 

JMP 

$nAB7 

Deskriptor in angegebene Variable eintragen 

String in Stringbereich übertragen 

DAAl- 

IDY 

#$00 


DAA3- 

IDA 

($A0),Y 

Stringlänge 

DAA5- 

JSR 

$E3D5 

Anfang Strings herabsetzen, neuer Deskr.-> 9D,9E,9F 

nAA8- 

IDA 

$8C 

Zeiger auf Originaldeskriptor 

DAAA- 

LDY 

$8D 


DAAC- 

STA 

$AB 

auf Hilfszeiger übertragen 

DAAE- 

STY 

$AC 


DABO- 

JSR - 

$E5D4 

String in Stringbereich kopieren 

nAB3- 

IDA 

#$9D 

Zeiger auf neuen Deskriptor 

DAB5- 

LDY 

#$00 


Deskriptor in Variable eintragen 

DAB7- 

STA 

$8C 

Zeiger auf gültigen Deskriptor 

DAB9- 

STY 

$8D 


DABB- 

JSR 

$E635 

Deskriptor aus Deskr.-stack entfernen, falls obenauf 

DABE- 

IDY 

#$00 

Deskriptor kopieren: 

DACO- 

IDA 

($8C),Y 

Länge 

DAC2- 

STA 

($85),Y 


DAC4- 

INY 



DAC5- 

LDA 

($8C),Y 

Adr.L 

DAC7- 

STA 

($85),Y 


DAC9- 

INY 



DACä- 

JDk 

($8C),Y 

Adr.H 

DACC- 

STA 

($85),Y 


DACE- 

KTS 



dacf- 

JSR 

$DB3D 

String drucken 

DAD2- 

JSR 

$00B7 

hole neues Zeichen 

Ajplesoft-Routine Hliwr 


DAD5- 

BEQ 

$DAFB 

Trennzeichen, CR ausgeben, fertig 

DAD7- 

BEQ 

$DB02 

extra Einsprung (vgl. $DB32): fertig falls Trennz. 

DAD9- 

CMP 

#$C0 

Token für TAB( ? 

DADB- 

BBS-i 

- ■$DBie -i/Oi 

^ja, Cursor positionieren (C=l) 

DATO- 

CMP 

#$C3 

Token für SPC( ? 

DADF- 

CLC 



DAEO- 



ja, Leerzeichen drucken (C=0) 

DAE2- 

CMP 

#$2C 

Ascii für Komma? 

DAE4- 

ac 



DAE5- 

BEQ 

$DB03 

ja, Tabulator setzen 

DAE7- 

CMP 

#$3B 

Ascii für ? 

DAE9- 

BEQ 

$DB2F 

ja, falls Trennzeichen folgt kein CR ausgeben 




DAEB- 

JSR 

$DD7B 

nächsten Ausdruck auswerten 

DAEE- 

BIT 

$11 

Stringflag prüfen 

DAFO- 

BMI 

$DfiCP 

String drucken 

DAF2- 

JSR 

$ED34 

sonst FACl in String urawandeln 

EAFS- 

JSR 

$E3E7 

Stringparaireter feststellen (Deskr.-Zeiger aO,A1) 

DÄF8- 

JMP 

$DfiCF 

String drucken 

CR ausgeben 



DAFB- 

LDA 

#$0D 

Ascii für CR 

ClAFE)- 

JSR 

$DB5C 

ausgeben 

DBOO- 

EDR 

#$FF 

invertieren 

DB02- 

RTS 



Cursor 

auf nächsten Tabulator setzen 

DB03- 

LDA 

$24 

Cursor-Spalte 

DB05- 

CMP 

#$18 

mit 24 vergleichen 

DB07- 

BCC 

$DB0E 

kleiner, bleibt in selber Zeile 

DB09- 

JSR 

$DAFB 

neue Zeile (CR) 

DBOC- 

BNE 

$DB2F 

weiter rait neuem Zeichen 

DBOB- 

ADC 

#$10 

nächstes Vielfaches von 16 bestiitnen 

DBIO- 

ÄND 

#$F0 


DB12- 

STA 

$24 

Cursorposition setzen 

DB14- 

BCC 

$DB2F 

weiter ndt neuem Zeichen (inrtier) 

TAB / SRC ausführen 


DB16- 

HIP 


C retten ( =0 bei SPC, =1 bei TAB ) 

DB17- 

JSR 

$E6F5 

hole 8-Bit-Integer aus Progr.-Text —> X 

DBIA- 


#$29 

folgendes Zeichen ")" ? 

DBIC- 

HBQ 

$DB21 

ok, »eiter 

DBIE- 

JMP 

$DBC9 

SYNTAX ERROR 

DB21- 

PLP 


hole C 

DB22- 

BOC 

$DB2B 

SPC, Leerzeichen drucken 

DB24- 

DEX 



DB 25- 

TXA 


TAB-Wfert 

DB26- 

SBC 

$24 

Cursor-Spalte abziehen 

DB28- 

BCC 

$DB2F 

Ziel links von aktueller Pos. —> TAB ignorieren 

DB2A- 

TftX 


Differenz = Anzahl zu druckender Leerzeichen 

DB2B- 

DSK 



DB2C- 

DEX 


Schleife für Leerzeichen drucken 

DB2D- 

BNE 

$DB35 

weitere Leerzeichen 

DB2F- 

JSR 

$00B1 

fertig, »«iter mit neuem Zeichen 

DB32- 

JMP 

$nAD7 

zurück in KRIWT-Routine 

DB35- 

JSR 

$DB57 

Leerzeichen drucken 

DB38- 

HSE 

$DB2C 

(imaer) 


String drucken 

I: A,Y Stringanfang; Eiiinarke 00 oder 22 (") 
0: oroSET zeigt auf Zeichen hinter String 


DB3A- 

JSR 

$E3E7 

String auswerten 

DB3D- 

JSR 

$E600 

Deskriptorenstack bereinigen (Stringanfang in 5E,5P,) 

DB40- 

TAX 


Länge des Strings 

DB41- 

IDY 

#$00 

Zeiger initialisieren 

DB43- 

INX 



nB44- 

DEX 


Schleife zum Drucken 

DB45- 

BEQ 

$DB02 

fertig, —> RTS 

DB47- 

IDA 

($5E),Y 

hole Zeichen 

DB49- 

JSR 

$DB5C 

drucken 

DB4C- 

INY 



DB4D- 

CMP 

#$0D 

CR ? 

DB4F- 

BNE 

$DB44 

nein, weiter 
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DB51- 

DB54- 


JER $DBOO 
JMP $DB44 


invertieren (?) 

weiter mit nächstem Zeichen 


Drucken eines einseinen Zeichens 

I: IB57-> Leerzeichen, EB5A-^ ?, E®5C-> Ascii im Accu 
0: X,Y unverändert; A ebenfalls bis auf Bit? .= 0 


DB57- 

LDA 

#$20 

Ascii für Leerzeichen 

DB59- 

BIT 

$3EA9 

—> IDA #$3F, d.h. Ascii für •’?" 

DB5C- 

CBA 

#$80 

setze Bit7=l 

DB5E- 

CMP 

#$A0 


DB60- 

BOC 

$DB64 

Ctrl-Zeichen, Flash-Flag ignorieren 

DB62- 

ORA 

$F3 

FIASH-Flag (=#$40 bei FLASH, sonst 00) 

DB64- 

JSR 

$PDED 

drucken mit Monitorroutine COOT 

'■667- 

Air 

"$7f 

Eit7=0 

DB6y- 

iWA 


Zeicnen" reuten 

DB6A- 

LDA 

$F1 

SPEED-Wert 

DB6C- 

JSR 

$Ka8 

entsprechend verzögern mit Monitorroutine WAIT 

m6F- 

PLA 


Zeichen wieder holen 

DB70- 

RTS 




Fehlerbehandlung bei INPOT / GET / READ 


DB71- 

IDA 

$15- 

Eingabe-Flag: $0=INPOT, $40=GET, $98=BEAD 

nB73- 

BEÖ 

$DB87 

Fehler bei Input 

DB75- 

EMI 

$DB7B 

Fehler iDei READ: S3(NEAX ERRC® IN Datazeile 

IB77- 

im 

#$EF 

Fdiler bei GET, simuliere Direfcbnodus 

DB79- 

BNE 

$DB7F 


DB7B- 

LDA 

$7B 

DATA-Zeiger für Fehlermeldung 

DB7D- 

IJÄ 

$7C 


EßTF- 

STA 

$75 

aktuelle Zeilennuniner 

DB81- 

STZ 

$76 

bei GBT-Fehler = $IF 

DB83- 

JMP 

$DBC9 

SYNTAX ERROR 

DB86- 

ELA 


extra Einsprung bei INPOT-Fehler (keine Eingatje) 

DB87- 

BIT 

$D8 

teste ONERR-Flag 

DB89- 

BPL 

$DB90 

nicht gesetzt 

DB8B- 

ITK 

#$EE 

Kode für INPOT-Fehler 

DB8D- 

JMP 

$F2E9 

zur Fehlerbehandlung 

DB90- 

IDA 

#$EF 

Zeiger auf Text "?REENTER", CR 

DB92- 

LD? 

#$DC 


DB94- 

JSR 

$DB3A 

Text drucken 

DB97- 

LDA 

$79 

gemerkten CHRGET-Zeiger 

DB99- 

LDZ 

$7A 


E»9B- 

STA 

$B8 

wiederherstellen 

DB9D- 

STZ 

$B9 


DB9F- 

BIS 

_ 

INPOT-Anweisung erneut durchführen 

I^lesoft-Routine GET 


DBAO- 

JSR 

$E306 

falls Direktmadus ILLB3AL DIRECT ERROR 

DBA3- 

IDX 

#$01 

Zeiger auf $0201 

DBA5- 

LEK- 

#$02 


DBA7- 

IDA 

#$00 


DBA9- 

STA 

$0201 

null als Endmarke 

DBAC- 

IDA 

#$40 

Kode für GET im Eingalse-Flag 

DBAB- 

JSR 

$DBEB 

zur Havpteingalaeroutine bei READ 

DBBl- 

RTS 




l^lesoft-Routine INPOT 

DHB2- CMP #$22 folgt Anführungszeichen? 
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DBB4- 

BNE 

$DBC4 

nein, kein Dialogstring 

DBB6- 

JSR 

$DE81 

String auswerten 

DBB9- 

IDA 

#$3B 

Ascii für 

DBBB- 

JSR 

SDEEO 

muß folgen, sonst SYNTAX ERROR 

EBBE- 

JSR 

SDB3D 

String drucken 

DBCl- 

JMP 

SDBC7 

kein Fragezeichen ausgeben 

DBC4- 

JSR 

$DB5A 

“?” drucken 

DBC7- 

JSR 

$E306 

prüfe, ob Programm-Modus 

DBCA- 

IDA 

#$2C 

Ascii für Kontia 

DBOC- 

STA 

SOIFF 

vor Eingabepuffer setzen 

DBCF- 

JSR 

$D52C 

Eingabezeile Empfangen (Y,X zeigt auf $01FF) 

nBD2- 

EDA 

$0200 

hole 1. Zeichen 

DBD5- 

CMP 

#$03 

Ctrl C ? 

DßD7- 

BNE 

$DBE9 

nein, zur Haupteingaberoutine bei READ 

DBD9- 

JMP 

$D863 

Ctrl C verarbeiten, d.h. STOP durchführen 

DBDC- 

JSR 

$DB5A 

drucken 

DBDF- 

JMP 

$D52C 

Eingabezeile etipfangen 

ÄEplesoft-Eoutine READ 


DBE2- 

UK 

$7D 

DATA-Zeiger 

DBE4- 

IDY 

$7E 


DBE6- 

EDA 

#$98 

Kode für READ 

DBE8- 

BIT 

$00A9 

—> IDA #$00, d.h. Kode für INPUT 


Haqpt-Eingaberoutine 

I: X,Y zeigt auf Eingabedaten, Accu = Eingabeflag 


DHEB- 

STA 

$15 

Eingabe-Flag eintragen 

DBED- 

STX 

$7F 

Eingabezeiger merken 

DBEF- 

STY 

$80 


DBFl- 

JSR 

$DPE3 

Variable suchen, ggf. neu einrichten 

DBF4- 

STA 

$85 

Zeiger auf Variable 

DHP6- 

STY 

$86 


DBF8- 

IDA 

$B8 

Programmzeiger 

DHPA- 

IDY 

$B9 


DHEC- 

STA 

$87 

retten 

DBFE- 

STY 

$88 


DCOO- 

IDX 

$7F 

Eingabezeiger 

DC02- 

IDY 

$80 


DC04- 

STX 

$B8 

—> CHRGET-Zeiger 

DC06- 

STY 

$B9 


DC08- 

JSR 

$00B7 

hole Eingabezeichen (je nach Eingabezeiger) 

DCOB- 

BNE 

$DC2B 

kein Trennzeichen 

DCOD- 

BIT 

$15 

Eingabe-Flag 

DCOF- 

BVC 

$DC1F 

INPOT / READ (zu vrenig Daten vorhanden) 

DCll- 

JSR 

$FD0C 

GET, hole Zeichen über Monitorroutine RDKEY 

DC14- 

AND 

#$7F 

lösche Bit7 

DC16- 

STA 

$0200 

Zeichen eintragen 

DC19- 

IDX 

#$EF 

Zeiger auf $01FF setzen 

DCIB- 

IDY 

#$01 


DCID- 

BNE 

$DC27 

zur weiteren Auswertung 

DCIF- 

BMI 

$DCA0 

READ, \reitere DATA suchen 

DC21- 

JSR 

$DB5A 

INPOT, ausgeben 

DC24- 

JSR 

$DBDC 

Eingabezeile atipfangen (mit 2. Fragezeichen) 

DC27- 

STX 

$B8 

CHRGET-Zeiger auf $01FF 

DC29- 

STY 

$B9 


DC2B- 

JSR 

$00B1 

hole Datenzeichen 

DC2E- 

BIT 

$11 

prüfe String-Flag 

DC30- 

HPL 

$DC63 

numerische Variable 


String als Daten 
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BC32- 

HET 

$15 

Eingabe-Flag 

DC34- 

B«: 

$DC3F 

READ cder INPOT 

DC36- 

HK 



DC37- 

SBC 

$B8 

Zeiger in Eingabepuffer iterken 

EC39- 

im 

*$00 


DC3B- 

am 

$0D 

0 als Endraarke für GET-Zeichen 

DC3I>- 

BBQ 

$DC4B 

überspringen, da für INPOT / READ 

DC3F- 

am 

$0D 

1. Zeichen vorläufig als Trennzeichen eintragen 

IC41- 

(MP 

#$22 

Anführungszeichen? 

DC43- 

BBQ 

$DC4C 

ja, —> $0D = #$22, $0E = #$22 

DC45- 

m 

#$3A 

sonst Ascii für 

DC47- 

am 

$0D 


DC49- 

u». 

#$2C 

und Ascii für als Trennzeichen 

DCffi- 

CTC 


kein ", erstes Zeichen gehört zum String 

DC4C- 

am 

$0E 


DC4E- 

u» 

$B8 

Datenzeiger 

DC50- 

im 

$B9 


DC52- 

ADC 

#$00 

um 1 erhöhen, falls Anf.-Zeichen (dann C=l) 

DC54- 

Bcr 

$DC57 


IC56- 

INX 



DC37- 

JSR 

$E3ED 

String auswerten, Endmarken in 0D,0E 

DCSiA:- 

JSR 

$E73D 

CHRGET-Zeiger holen (Stringende) 

rc5D- 

JEK 

$nA7B 

Deskriptor in Variable eintragen 

DC60- 

(StP 

$0:72 

weiter in Prograttmzeile 

mnerische Dat^ 


DC63- 

EBA 


rette 1. Datenzeichen 

DC64- 

IBA 

$0200 

setze Z-Flag 

DC67- 

BBQ 

$DC99 

Endzeichen, d.h. keine Eingabe erfolgt 

DC69- 

VIA 


hole Zeichen wieder 

Dcet- 

JSR 

$h:4a 

String in FP-Kcxistante uitwandeln (—> FACl) 

IC6D- 

HA 

$12 

Integer-Flag 

DC6F- 

JSR 

$QAe3 

Wert in Variable eintragen (vgl. LET) 

DC72- 

JSR 

$00B7 

hole Datenzeichen hinter letzten Datensatz 

EC75- 

BBQ 

$DC7E 

Trennzeichen 

DCT?- 

(MP 

#$2C 

Karma? 

ECTg- 

BBQ 

$IC7E 

ja, ok. 

DC7B- 

JHP 

$IB71 

sonst Fehlerbehandlung 

DC7B- 

im 

$B8 

CHRGET-Zeiger 

DC80- 

JIK 

$B9 


DC82- 

am 

$7F 

in Eingabe-Zeiger merken 

rc84- 

SIY 

$80 


DC86- 

IBA 

$87 

geretteten Progranmzeiger 

EC88- 

US 

$88 


DC8&- 

am 

$B8 

wiederherstellen 

Ecac- 

are 

$B9 


DC8K- 

JSR 

$00B7 

hole Zeichen aus Prograrrmzeile 

DC91- 

BBQ 

$DCX:6 

Trennzeichen, Routine abschliessen 

DC93- 

JSR 

$C^IB 

prüfe, ob Karma folgt 

DC9&- 

JHP 

$IBF1 

falls ja, weiter mit nächster Eingabe 

IC99- 

IBA 

$15 

Eingabe-Flag 

DC9B- 

HIE 

$DC69 

READ oder GBT, vreiter 

IC9D- 

(StP 

$OB86 

INPOT, Fehlerbehandlung 

Sixäie IKDV-Statanent 


Dcao- 


$D9A3 

suche nächstes Trennzeichen (Offset —> Y) 

IX3V>- 

nor 



aa4- 

WL 


Z-Flag aktualisieren 

BOÖ- 


$CCB9 

nicht Zeilenende 
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Kode für OOT QF CaTA ERROR 


DCA7- 

IDX 

#$2A 

DCA9- 

INY 


DCAA- 

LDA 

($B8),Y 

DCAC- 

BEQ 

$DD0D 

DCAE- 

INY 


dcäf- 

LDA 

($B8),Y 

DCBl- 

STA 

$7B 

DCB3- 

INY 


DCS4- 

LDA 

($B8),Y 

DCB6- 

INY 


DCB7- 

STA 

$7C 

DCB9- 

UA 

($B8),Y 

DCBB- 

TAX 

DCBC- 

JSR 

$D998 

DCBF- 

CPX 

#$83 

DCCl- 

BNE 

$DCA0 

DCC3- 

JMP 

$ix:2B 


Linkadresse, HByte 

Programnende, —> OOT CP DATA ERROR 

Zeilennunmer LByte 


und HByte 

in DATA-Pointer eintragen 
hole erstes Token 
in X merken 

CHRGEIT—Zeiger um Y erhcäien 
Token für DATA? 

nein, nächstes DATA-Statanent suchen 
weiter bei unterbrochenem READ 


Eingaberoutine abschließai 

BCC6- lOA $7F Eingabezeiger holen 

TV>-'0_ TTwr Art/\ 


DCC6- 

IDA 

$7F 

DCC8- 

LDY 

$80 

DOCA- 

LDX 

$15 

DCSX- 

HPL 

$DCD1 

DCCE- 

JMP 

$D853 

Dcni- 

IDY 

#$00 

DCD3- 

LDA 

($7F), 

DCDS- 

BEQ 

$DCDE 

DCD7- 

LDA 

#$nF 

DCD9- 

IDY 

#$10 

DCDB- 

JMP 

$DB3A 

DCDE- 

RTS 


DCDF- 

3F 45 

58 54 


49 47 

4E 4F 

DCEF- 

3F 52 

45 45 

I^lesoft-Routine N 

DCF9- 

BNE 

$DCFF 

DCFB- 

IDY 

#$00 

DCFD- 

BEQ 

StO02 

DCFF- 

JSR 

$DFE3 

1002- 

STA 

$85 

DD04- 

STY 

$86 

DD06- 

JSR 

$D365 

0309- 

BEQ 

$IOOF 

EOOB- 

IDX 

#$00 

DDOD- 

BEQ 

$1078 

MJOF- 

TXS 


EDIO- 

DK 


lon- 

INX 


DD12- 

DK 


DD13- 

DK 


1014- 

DCA 


DD15- 

DK 


1016- 

DK 


1017- 

DK 


1018- 

DK 



Eingabe-Flag 
INPOT oder GETT 

nächstes DATA-Statement in DATA-Zeiger 7D,7E merken 

hole nächstes Datenzeichen 

Eraanarke, fertig, (bei GET iiiinsr der Fall) 

scmst Zeiger auf Text "PEXTOA lOJORED" 

Meldung ausgeben, fertig 


?EXIRA_ 

IGNORED 


tein Trennzeichen, d.h. NEXT-Variable angegeben 
in 86 kennzeichnen, daß keine Variable angegeben 
überspringe Variablensuche 
angegebene Variable suchen 
Zeiger auf Variable merken 

suche im Stack nach NEXT-Parameter 
gefunden 

Kode für NEXT WITHOOT POR ERROR 

Fehlermeldung verarbeiten 

aktuelle Schleifenparaneter oben auf Stack 


Zeiger auf STEP-Wert, LByte 
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0019- 

BK 


EDIA- 

INX 


EDIB- 

SJX 

$60 

ODID- 

im 

#$01 

COIF- 

JSR 

$EiF9 

1022- 

TSX 


0023- 

lOA 

$0109,X 

DD26- 

STA 

$A2 

DD28- 

UA. 

$85 

D02A- 

UN 

$86 

D02C- 

JSR 

$E7BB 

OD^- 

JSR 

$mzi 

0032- 

UN 

#$01 

DOM- 

JSR 

$KB4 

0037- 

TSX 


0038- 

SK 


0039- 

SBC 

$0109 ,X 

D03C- 

BEQ 

$DD55 

D03E- 

lOA 

$010F,X 

0041- 

SEA 

$75 

0043- 

UA 

$0110 ,X 

0046- 

STA 

$76 

0048- 

HA 

$0112,X 

0O4B- 

sm 

$B8 

0040- 

lOA 

$0111,X 

0050- 

sm 

$B9 

0052- 

JMP 

$D7D2 

Schleife abschlieSen 

0055- 

Wi 


0056- 

ADC 

#$11 

00058- 

mx 


0059- 

TKS 


D05A- 

JSl 

$00B7 

CD5D- 

CMP 

#$2C 

D05F- 

BNE 

$0052 

0061- 

j£aR 

$OOB1 

0064- 

JSR 

$DCFF 


Zeiger auf TO-Vfert, IByte 

HByte für beide Zeiger (Stack = Pagel) 

STEP-Wert nach FACl übertragen 

Vorzeichen des STEP-Wertes 
nach Vorzeichen-Flag von EÄCl 
Zeiger auf Laufvariable 

Variablenwert + STEP-Wert = neuer Variablenwert 
Ergebnis (in FACl) in Laufvariable eintragen 
Zeiger auf TO-wert, HByte 

FACl mit TO-Wert vergleichen (Accu =1 bei >, FF bei < ) 


minus Vorzeichen STEP-Wert ( =1 bei +, FF bei - ) 
TO-Wert überschritten, Schleife fertig 
Zeilennurmier des POR-Befehls 
als aktuelle Zeilennummer übernehmen 


Prograitmzeiger hinter POR-Befehl 
als CHRGETT-Zeiger übernehmen 


zur Programmausführung 
Schleifendaten aus Stack entfernen 


hole nächstes Zeichen aus Programmzeile 
Komma? 

nein, NEXT-Befehl fertig, weiter im Programm 

hole nächstes Zeichen 

weiter mit nächster NEXT-Variablen 


Numerischen Ausdruck auswerten 
I: (SaGET zeigt auf erstes Zeichen des Ausdrucks 
0: Ergebnis in EACl 


0067- 

JSR 

$DD7B 

Ausdruck auswerten 

pcüfe, 

DDOA- 

ob Ausdruck numerisch 

OC 

G06B- 

BIT 

$38 

weiter bei DD6D 

pcüfe, 

ooec- 

ob Stringausdruck 


0O6D- 

HIT 

$11 

String-Flag 

0D6F- 

EHI 

$0074 

String 

0071- 

BCS 

$0076 

kein String, soll String sein 

„ 0073- 

BX5 


stimmt überein, ok. 

0074- 

BCS 

$0073 

String, soll auch so sein,, ok. 

0076- 

UK 

#$A3 

Kode für TYPE MISMATCH ERROR 

0078- 

3IP 

$0412 

Fdilermeldung 


-> TYPE MI3!ATCH 


Amswertuog eines beli^igen Ausdrucks 
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I: CHRGET zeigt auf erstes Zeichen 
0: falls Ausdruck numerisch —> BÄCl 

scffist zeigt A0,A1 auf Stringdeskriptor 

CHRGET zeigt hinter Ausdruck, String-Flag aktuell 


IX)7B- 

LDX 

$B8 

CHRGET-Zeiger vor Ausdruck setzen 

DD7D- 

BNE 

$DD81 


DD7F- 

DEC 

$B9 


DD81- 

DEC 

$B8 


0)83- 

IßX 

#$00 

als Marke: keine offene Operation nehr auf Stack 

0385- 

BIT 

$48 

vfeiter bei DD87 

DD86- 

PHA 


Vergleichs-Flag auf Stack 

DD87- 

■ECA 


Prioritäts-Flag 

DD88- 

EHA 


auf Stack 

DD89- 

I£R 

#$01 


J3D8B- 

JSR 

$D3D6 

genügend Platz auf Stack? 

DD8E- 

JSR 

$DE60 

Operand aus Programmtext holen 

1X191- 

IDA 

#$00 


DD93- 

STA 

$89 

Vergleichs-Flag löschen 

DD95- 

JSR 

$00B7 

neues Zeichen holen 

DD98- 

SBC 



D099- 

SBC 

#$CF ,6 p 


>DD9B- 

BCC 

$1XB4 

Token < CF, keine Vergleichsoperation 

1X9D- 

CMP 

#$03 


,XD9F- 

BCS 

$DDB4 

Token >= D2, keine Vergleichscperatioh 

'DDAl- 

CMP 

#$01 

C=0 falls >-Vergleicli 

WA3- 

RDL 



DDA4- 

EDR 

#$01 

damit >l/ = 2/ <4 

WA6- 

IDR 

$89 

damit >=3 / 0 5 / <=6 / 0 

DDA8- 

CMP 

$89 

mit altem Flag vergleichen 

DDAA- 

BCC 

$DE0D 

zwei gleiche Relationen —> SYNTAX ERROR 

DDAC- 

STA 

$89 

Flag merken 

DDAE- 

JSR 

$00B1 

neues Zeichen 

IXBl- 

JMP 

$DD98 

damit vreiter 

rä'4- 

IDk 

$89 

Vergleichs-Flag 

DDB6- 

BNE 

$DDE4 

Vergl.-Operation, Parameter bestimren 

IXB8- 

BCS 

$DE35 

Token für SGN oder folgende 

DDBA- 

ADC 

#$07 


DDBC- 

BCC 

$DE35 

Token für STEP oder Befehl davor 

IXBE- 

ADC 

$11 

C=l, String-Flag = FF bei String 

EOCO- 

BNE 

$IXC5 

springen, da nicht Token für + oder kein String 

IXC2- 

JMP 

$E597 

sonst String-Verknüpfung durchführen 

tXC5- 

ADC 

#$EF 

Kode korrigieren, da C=1 addiert wurde 

IXC7- 

STA 

$5E 

Token minus AA bei + - * / " AND GR 

D0C9- 

ASL 


X 2 

DDCA- 

ADC 

$5E 

ergibt 3 * (Token - AA) 

DDOC- 

TAY 


als Zeiger in Tabelle der arithmetischen Operationen 

IXCD- 

ELA 


Priorität auf Stack 

DDCE- 

CMP 

$D0B2,Y 

mit Priorität der Operation vergleichen 

DDDl- 

BCS 

$DE3A 

Vorrang für Stack-Operation, —> Cp. durchführen 

aDD3- 

JSR 

$IX6A 

String-Flag darf nicht gesetzt sein 

IXD6- 

PHA 


Prioritäts-Flag zurück auf Stack 

DDD7- 

JSR 

$tXFD 

Op.-Routinenadr. und Operand auf Stack, weiter bei 1X86 

Einsprung bei Rückkehr 

von Cperations-Routine 

DDDA- 

ELA 


Priorität der nächsten Operation auf Stack 

IXDB- 

IDY 

$87 

Tabellenzeiger für soeben vollzogene Operation 

IXDD- 

BPL 

$DDF6 

war nicht die letzte Operation im Ausdruck 

IXDF- 

oax 


Z-Flag aktualisieren 

DDEO- 

BEQ 

$DE38 

keine offene Operation mehr, Auswertung beendet 

IXE2- 

BNE 

$DE43 

nächste offene Operation auf Stack durchführen 


Vorbereitung für Vergleichs-C^erationen 
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DDE4- 

ISR 

$11 

String-Flag löschen, C=1 falls Flag gesetzt war 

DDE6- 

TXA 


Vergleichs-Kode 

HJEV- 

EOL 


verdo£peln, C—> Bitl (gesetzt, falls Stringvergleich) 

DDE8- 

UÄ 

$B8 

CHRGET-Zeiger um 1 verringern 

EOEA- 

Bm 

$I»EE 


IX)BC- 

DEC 

$B9 


H)EE- 

DEC 

$B8 


ras'O- 

IDY 

#$1B 

Tabellenzeiger für Vergleichs-(lperation 

II)F2- 

STA 

$89 

modifizierten Vergleichs-Kode merken 

n3F4- 

BÜ3E 

$DDCD 

unbedingter Sprung zum Prioritäts-Vergleich 

OaF6- 

CMP 

$D0B2,Y 

vergl. Stack-Prior, mit Prior, der eben durchgef. Op. 

DDP9- 

BCS 

$DE43 

Vorrang für Stack-Operation, —> durchführen 

E©FB- 

BCC 

$DDD6 

Zwischenergebnis als Operand, offene Operation 

offene Operation auf Stack retten 

I»FD- 

U3A 

$D0B4,Y 

Sprungadresse für Op.-Routine aus Tabelle 

DEOO- 

HiA 


auf Stack retten 

DEOl- 

LDA 

$D0B3,Y 


DE04- 

EHA 



EE05- 

JSR 

$DE10 

Operand (in FACl) auf Stack retten 

EE08- 

IDA 

$89 

Vergleichs-Flag laden 

DEOA- 

OMP 

$DD86 

nächstes Element des Ausdrucks auswerten 

DEOD- 

OMP 

$DBC9 

SYIOTAX ERROR durchführen 

DEIO- 

LDA 

$A2 

Vorzeichen von FACl 

DE12- 

IDX 

$D0B2,Y 

Priorität der C^eration nach X retten 

IK15- 

TAY 


Vorzeichen nach Y 

DE16- 

FLA 


Rücksprungadresse nach 5E,5F retten 

DE17- 

STA 

$5E 


DE19- 

INC 

$5E 


DEIB- 

ELA 



DEIC- 

STA 

$5F 


DEIE- 

TYA 


Vorzeichen von FACl 

DEIF- 

PHA 


auf Stack 

DE20- 

JSR 

$EB72 

FACl runden 

DE23- 

rriA 

$A1 

und auf Stack retten 

DE25- 

PHA 



EE26- 

LDA 

$A0 


DE28- 

PHA 



nE29- 

IDA 

$9F 


I®2B- 

PHA 



ra: 2 c- 

IDA 

$9E 


DE2B- 

PHA 



EE2F- 

IDA 

$9D 


DE31- 

FHA 



is;32- 

JMP 

($005E) 

Rücksprung zur aufrufenden Routine 

Auswertung abschließen 


DE35- 


#$EF 

Kennzeichen, daß Eiide des Ausdrucks erreicht 

DE37- 

FLA 


Priorität von Stack 

DE38- 

BEQ 

$DE5D 

keine offene Operation mehr, Auswertung beendet 

DE3A- 

OIP 

#$64 

offene Vergleichscperation? 

nE3C- 

HBQ 

$DE41 

ja, Operand darf String sein 

EE3E- 

JSR 

$DD6A 

Operand muß numerisch sein 

DE41- 

STY 

$87 

Tabellenzeiger merken 


Operation auf Stack durchführen 
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DE43- 

EIA 


modifiziertes Vergleichs-Flag 

DE44- 

I£R 


in Normalform bringen, C=1 falls String-Vergleich 

DE45- 

STA 

$16 

Vergleichsflag merken 

DE47- 

ELA 


Operand von Stack nach FAC2 übertragen 

DE48- 

STA 

$A5 

Exponent 

DE4Ä- 

PIA 



DE4B- 

STA 

$A6 

Mantissel 

DE4D- 

PIA 


s 

DE4B- 

STA 

$A7 

Mantisse2 

DE50- 

ELA 



nE5i- 

STA 

$A8 

Mantissel (falls String als Operand zeigt A8,A9 

DE53- 

ELA 


auf Deskriptor) 

DE54- 

STA 

$A9 

Mantisse# 

DE56- 

PIA 



DE57- 

STA 

$AA 

Vorzeichen 

DE59- 

BOR 

$A2 

mit Vorzeichen von EACl verknüpfen 

DE5B- 

STA 

$AB 

ergibt Konbi-Vorzeichen 

DE5D- 

LOA 

$9D 

Eigjonent von FACl laden 

DE5F- 

RTS 


Operation durchführen (bzw. Ausdruck fertig, zurück) 

Koistante oder Variable aus Progranmtejct holen 

DE60- 

IDA 

#$00 

String-Flag löschen 

DE62- 

STA 

$11 


DE64- 

JSR 

$00B1 

hole erstes Zeichen 

DE67- 

BCS 

$DE6C 

keine Ziffer 

DE69- 

OME 

$EC4A 

Zahlenstring in FP-Kcostante umwandeln (FACl), fertig 

DE6C- 

JSR 

$E07D 

prüfe cb Buchstabe, C=1 falls ja 

DE6F- 

BCS 

$DED5 

ja, d.h. Variable —> Variablenwert holen 

DE71- 

CME 

#$2E 

DezimalpunJct? 

DE73- 

BEQ 

$DE69 

ja, Zahlenwert nach FACl 

-^DE75- 

CME 

#$C9 «’l 

Minuszeichen? 

DE77- 

HEQ 

$DBCE 

ja, Vorzeichenwechsel als offene Operation auf Stack 

- -4.s^79- 

CME 

#SC8 B/ 

Pluszeichen? 

" DE7B- 

BEQ 

$DEe4 

ja, ignorieren 

DE7D- 

CME 

#$22 

Anführungszeichen? 

IE7F- 

HNE 

$DE90 

nein, kein String 

DE81- 

LDA 

$B8 

String, CHaSET-Zeiger erhcäien 

nE83- 

IQY 

$B9 


DE85- 

ADC 

#$00 


DE87- 

BOC 

$DE8A 


nE89- 

INY 


CHRGET zeigt nun auf erstes Stringzeichen 

ra:8A- 

JSR 

$E3E7 

String auswerten 

. DE8D- 

JME 

$E73D 

CHRßET-Zeiger (Stringende) holen, fertig 

DE90- 

CME 

#$C6 6 4 

Token für NOT? 

DE92- 


$DEA4 

nein 

DE94- 

IDY 

#$18 

Tabellenzeiger für NOT 

DE96- 

BNE 

$DED0 

NOT als offene Operation auf Stack 

NOT durchführen 


DE98- 

LEA 

$9D 

Ei^xxiait von FACl (=0, falls Bedingung nicht erfüllt) 

DE9A- 

BNE 

$DE9F 

Bedingung erfüllt, un zu negieren —> Y=0 

DE9C- 

LDY 

#$01 

Wahrheitswert war null, ergibt negiert Y=1 

ra:9E- 

BIT 

$ooao 

—> EE9F- UiY #$00 

DEAl- 

JME 

$E301 

Integer in Y umwandeln in FP-Kcxistante (in FACl) 

■ ^ ;^DEA4- 

CMP 

#$C2 1 

Ttken für FN? 

DEA6- 

BNE 

$DEAB 1 //T^ nein 

DEA8- 

JME 

$E354 i 

sonst FN auswerten 

-^ÄBEAB- 

CME 

#$B2. ca. 

TcÄen für SGN? 

DEftD- 

BCC 

$DEB2 

keine Funktion, prüfe ob Klaniterausdruck 
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DEAF- 

ÜMP 

$DF0C 

zur Funktions-Auswertung 

DEB2- 

JSR 

$DEBB 

prüfe ob sonst SYKTAX ERROR i . ,J 

DEB5- 

JSR 

$£»7B 

Term auswerten ^ ^ 

Hilfsroutine 

zur S^tax-Prüfung 

DEB8- 

rm 

#$29 

Ascii für **)" 

DEBA“ 

BIT 

$28A9 

—> DEBB- EDA #$28 , d.h. Ascii für 

DEK)- 

BIT 

$2CA9 

—> EBBE- LOA #$2C , d.h. Ascii für 

OBCO- 

LDY 

#$00 


DBC2- 

CMP 

($B8),Y 

mit zu prüfendon Zeichen vergleichen 

0024- 

HSIE 

$DBC9 

stimmt nicht, SYHTAX ERROR 

DBC6- 

JMP 

$00B1 

ok, zurück mit neuem Zeichen 

DEC9- 

LDX 

#$10 

Kode für SYNTAX ERROR 

DBCB- 

OMP 

$0412 

zur Fehlermeldung 

OBCE- 

LDY 

#$15 

Tabellenzeiger für Vorzeichenwechsel 

DEDO- 

PIA 


entferne Rücksprungadresse 

DEDl- 

PIA 



DED2- 

OMP 

$DDD7 

als offene Operation auf Stack 


Variablenwert holen 
I: CHKGET zeigt auf Variablenname 
p; Inhalt , falls numerisch, in FACl 
sonst zeigt A0,Äl auf Stringdeskriptor 


DED5- 

JSR 

$DFE3 

Variable suchen, ggf. neu einrichten 

EED8- 

STA 

$A0 

Zeiger auf Variablen-Eintrag 

EEDA- 

STY 

$A1 

DEDC- 

LDX 

$11 

String-Flag 

DEDE- 

HEQ 

$DEE5 

kein String 

DEEO- 

UTC 

#$00 


DEE2- 

STX 

$AC 

? 

DEE4- 

RTS 



DEE5- 

UK 

$12 

Integer-Flag 

DEE7- 

BPL 

$DEF6 

FP-Variable, wert nach FACl 

DEE9- 

IDY 

#$00 


DEEB- 

LOA 

($A0),Y 

Integer nach A,Y 

ßEED“ 

TAX 



DEEE- 

INY 



EGEF- 

um 

($A0),Y 


.OEFl- 

TAY 



EEF2- 

TXA 



EEF3- 

OMP 

$E2F2 

Integer in A,Y nach FACl 

EEF6- 

JMP 

$EAF9 

FP-Variable (A,Y als Zeiger) nach FACl 

^iplesoft-Routine SCRN 


EEP9- 

JSR 

$00B1 

hole nächstes Zeichen 

DETC- 

JSR 

$F1EC 

hole Plot-Parameter IDRES-Grafik 

EEEF- 

TXA 


2. Parameter 

EFOO- 

IDY 

$F0 

1. Parameter 

IF02- 

JSR 

$F871 

Monitorroutine SCRN bringt Farbe des Punktes 

0705- 

TAY 


Farbkode 

EF06- 

JSR 

$E301 

nach FACl bringen 

EF09- 

JMP 

$DEB8 

")" muß folgen, sonst SYNTAX ERROR 


Auswertung von Funktionen 

EFOC- CMP #$D7 Token für SCRN? 
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1 DFOE- 

EEQ 

$DEF9 

ja, zur Routine 

EFIO- 

ASL 


Token x 2 mod 256 

DFll- 

PHä 


retten 

nF12- 

TAX 



EFia- 

JSR 

$00B1 

neues Zeichen 

DF16- 

CPX 

#$CF 


EF18- 

BCC 

$DF3A 

Token war < E8, d.h. nicht LEFT$/lyiID$/RIGaT$ 

CFIA- 

JSR 

$DEßB 

sonst prüfen, ob "(" folgt 

DFID- 

JSR 

SIXI7B 

1. Ausdruck auswerten 

DF20- 

JSR 

$0EBE 

prüfen, ob Komma folgt 

DF23- 

JSR 

$DD6C 

prüfen, ob Stringausdruck 

DF26- 

PIA 


Token x 2 mod 256 

DF27- 

TAX 


in X nerken 

DF 28- 

LDA 

$Al 

Stringdeskriptor 

nF2A- 

PHA 


auf Stack retten 

nF2B- 

LDA 

$A0 


DF2D- 

FHA 



DF2E- 

TXA 


"Token” retten 

EF2F- 

HiA 



DF30- 

JSR 

$E6F8 

IByte-Integer (l.Paraneter) aus Programmtext — 

II'33- 

PLA 


"Token” 

DF34- 

TAY 


als Tabellenzeiger nach Y 

DF35- 

TXA 


1. Parameter 

DF36- 

PHA 


auf Stack retten 

DF37- 

OMP 

$DF3F 

Routine anspringen 

DF3A- 

JSR 

$DEB2 

Klanmerausdruck auswerten 

DF3D- 

PLA 


Token X 2 mod 256 

DF3E- 

TAY 


als Tabellenzeiger 

DF3F- 

LDA 

$CFDC,Y 

Sprungadresse aus Tabelle 

i:f42- 

STA 

$91 

nach 91,92 

DF44- 

lOA 

$CFDD,Y 


EP47- 

STA 

$92 


DF49- 

JSR 

$0090 

Routine aufrufen 

aF4C- 

OMP 

$DD6A 

Ergebnis muß numerisch sein, falls ok. fertig 


Logische Verknüpfung CR durchführen 


DF4F- 

Wk 

$A5 

1. Wahrheitswert 

nF51- 

QRA 

$9D 

oder 2. Wahrheitswert ungleich null? 

nF53- 

6Ü3E 

$IF60 

ja, (®-Bed. erfüllt (sonst ÄND sicher nicht erfüllt) 


Logische Verknüpfung AND 


DF55- 

IDA 

$A5 

1. Wahrheitswert 

DF57- 

HEQ 

SIFSD 

null, d.h. nicht erfüllt 

nF59- 

IDA 

$9D 

2. Wahrheitswert 

EF5B- 

BNE 

$DF60 

erfüllt, damit AND-Bedingung erfüllt 

EF5D- 

LDY 

#$00 

neuer Wahrheitswert = null 

DF5F- 

BIT 

$01A0 

—> EROO- IDY #$01, d.h. neuer Wahrheitswert = 1 

EF62- 

JMP 

$E301 

Wahrheitswert in Y nach FACl 


Routine für Vergleichs-Operationen 
I: C=1 falls erster Ausdruck String 

DF65- JSR $DD6D prüfe ob 2. Ausdruck gleicher Typ wie erster 

EF68- BCS $DF7D Vergleich zweier Strings 

Vergleich zweier numerischer Größen 
I: Größen in EAC1,FAC2 
DF6A- IßA $AA Vorzeichen iac2 

DF6C- CRA #$7F 
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EF6E- 

AND 

$A6 

in höchste Mantissenstelle eintragen 

EF70- 

STA 

$A6 


W12- 

IDA 

#$A5 

Zeiger auf FAC2 

EF74- 

mi 

#$00 


EF76- 

JSR 

$EBB2 

FACl mit FAC2 vergleichen 

EF79- 

TAX 


1,0,255 bei 1. Zahl < = > 2. Zahl 

EFTa- 

JMP 

$[»■30 

Wahrheitswert der Vergleichsoperation feststellen 


Vergleich zweier Strings 

I; Zeiger auf Stringdeskriptoren in A0,A1 und a8,A9 


EF7D- 

IDA 

#$00 

■ 

EF7F- 

STA 

$11 

String-Flag löschen 

EF81- 

DEC 

$89 


EP83- 

JSR 

$Eeoo 

unnützen String entfernen 

IF86- 

STA 

$9D 

Deskriptor für 2. String nach 9D,9E,9F 

EF88- 

STX 

$9E 


»'8a- 

STY 

$9F 


»80- 

IDA 

$A8 

DeskriptorZeiger für 1. String 

EF8E- 

IDY 

$A9 


»90- 

JSR 

$Ee04 

unnützen String entfernen 

»93- 

STX 

$A8 

Zeiger auf 1. String 

»95- 

STY 

$ä9 


»97- 

TAX 


Länge des 1. Strings 

»98- 

SEC 



»99- 

SBC 

$9D 

minus Länge des 2. Strings 

»9B- 

BEQ 

$DFA5 

beide Strings gleich lang 

»9D- 

IDA 

#$01 


»9F- 

BOC 

$»A5 

1. String kürzer 

»Al- 

IDX 

$9D 

X = Länge des kürzeren Strings 

»A3- 

IDA 

#$EF 


»A5- 

STA 

$A2 

1,0,255 bei Länge 1 < = > Länge 2 

»A7- 

IDY 

#$FF 

als Index, ergibt Anfangswert 0 

»A9- 

mx 



»AA- 

INY 


Vergleichs-Schleife 

»AB- 

DEX 



»AC- 

BNE 

$»B5 

Ende des kürzeren Strings noch nicht erreicht 

»AE- 

IDX 

$A2 

Längenvergleich 

EFBO- 

EMI 

$»C1 

Länge 1 > Länge 2 , 0=1 

DFB2- 

CIC 



CFB3— 

BCC 

$»C1 

Länge 1 <= Länge2 , 0=0 

EFBS- 

IDA 

($ä8),Y 

Zeichen aus 1. String 

»B7- 

CMP 

($9E),Y 

mit Zeichen aus 2. String vergleichen 

EFBS- 

BEQ 

$»aA 

Übereinstimmung, vergleiche nächstes Zeichen 

»BB- 

IDX 

#$FF 


DPED- 

BCS 

$aEci 

1. Ausdruck > 2. Ausdruck 

»»- 

IDX 

#$01 


»Cl- 

INX 


X = 0,1,2 bei 1. Ausdruck > = < 2. Ausdruck 

»C2h 

TXA 



nrc3- 

BOL 


A = 1,2,4 

»C4- 

AND 

$16 

Bit 0,1,2 bedeutet > = < in Vergleichs-Flag 

WC6- 

BEQ 

$»CA 

keine Übereinstimmung, —> Wahrheitswert = 0 

»C8- 

IDA 

#$01 

als Wahrheitswert 

orca- 

JMP 

$EB93 

Wahrheitswert nach FACl 

l^lesoft-Routine PDL 


EFCD- 

JSR 

$E6EB 

IByte-Integer (Paddlenunrier) aus Progr.Text holen 

»DO- 

JSR 

$FB1E 

Paddle abfragen über Monitorroutine PDL 

»D3- 

JMP 

$E301 

Ergebnis nach FACl 


J^lesoft-Koutine DIM 
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DFD6- JSR 


$DEBE prüfe cto Kantia folgt 


Einsprung bei 

Aufruf 

DFD9- 

Tax 


DFDA- 

JSR 

$DFE8 

DFDD- 

JSR 

$00B7 

EFEO- 

BNE 

$DFD6 

EFE2- 

RTS 



1. Namenbyte = Buchstabe, —> Bits = 1 
Variable dimensionieren 
hole neues Zeichen 

kein Trennzeichen, »eitere Variable dimensionieren 


suche Variable 

I; CHRGET zeigt auf 1. Namensbyte 
0: A,V = 83,84 zeigt auf Variabien-Eintragung 
9B,9C zeigt auf Variablenname 


DPE3- 

LDX 

#$00 

nicht von DIM gerufen 

DFE5- 

JSR 

$00B7 

hole 1. Zeichen 

DFE8- 

STX 

$10 

DIM-Flag, Bits = 1 falls DIM 

EFEA- 

STA 

$81 

Variablenname, 1. Byte 

DFBC- 

JSR 

$00B7 

hole selbes Zeichen nochmal 

DFEF- 

JSR 

$E07D 

prüfe ob Buchstabe 

DFF2- 

BGS 

$DFF7 

ja, ok 

DFF4- 

OMP 

$DEC9 

nein, SYWiaX ERROR 

DFF7- 

LCK 

#$00 


DFF9- 

STX 

$11 

String-Flag löschen 

DFFB- 

STX 

$12 

Integer-Flag löschen 

DFFD- 

JMP 

$E007 

Entry-Vektoren überspringen 

EOOO- 

JMP 

$F128 

Kaltstart 

E003- 

ÜMP 

$D43C 

Warmstart 

E006- 

BRK 



E007- 

JSR 

$00B1 

hole nerfös Zeichen 

EOOA- 

BOC 

$E011 

Ziffer 

EOOC- 

JSR 

$E07D 

prüfe c±> Buchstabe 

EOOF- 

BCC 

$E01C 

nein 

EOll- 

Tax 


sonst merken (= Variablenname, 2. Byte) 

E012- 

JSR 

$00B1 

neues Zeichen holen 

E015- 

BOC 

$E012 

Ziffer, ignorieren da schcar 2 gültige Zeichen 

E017- 

JSR 

$E07D 

prüfe ob Buchstabe 

EOIA- 

BCS 

$E012 

ja, ignorieren da schon 2 gültige Zeichen 

EOlC- 

CMP 

#$24 

Ascii für “$” ? 

EOIE- 

BNE 

$E026 

nein 

E020- 

LDA 

#$FP 


E022- 

STA 

$11 

String-Flag setzen 

E024- 

BNE 

$E036 

unbedingter Sprung 

E026- 

OdP 

#$25 

Ascii für "%" ? 

E028- 

BNE 

$E03D 

nein, also FP-Variable 

E02A- 

IDA 

$14 

Bit7 = 1 falls Integer-Variablen nicht erlaubt 

E02C- 

BMI 

$DFF4 

SZNiaX ERROR 

E02E- 

IDA 

#$80 


E030- 

STA 

$12 

Integer-Flag setzen 

E032- 

CBA 

$81 

setze Bit7 in l.Namensiyte, da Integervariable 

E034- 

STA 

$81 


E036- 

TXA 


2. Naraensbyte 

E037- 

CRA 

#$80 

Bit7 setzen, da keine FP-Variable 

E039- 

TAX 



E03A- 

JSR 

$00B1 

neues Zeichen holen 

E03D- 

SEX ■ 

$82 

2. Namensbyte eintragen 

E03F- 

SEC 



E040- 

QRA 

$14 

= #$40, falls Feldvariable dhne "(", vgl STORE 

E042- 

SBC 

#$28 

minus Ascii für "(" ergibt 0, falls Feld und $14- 


54 








E044- 

BNE 

$E049 

nicht 0, prüfen ob von STORE aufgerufen 

E046- 

OMP 

$E11E 

—> Feldvariable suchen 

E049- 

BIT 

$14 

teste Variablen-Hilfsflag 

E04B- 

BMI 

$E04F 

>= $80, sicher nicht von STORE 

E04D- 

BVS 

$E046 

Bit6 = 1, d.h. von STORE gerufen —> Feld suchen 

E04F- 

IDA 

#$00 


E051- 

STA 

$14 

Hilfs-Flag löschen 

einfache Variable suchen 


E053- 

IDA 

$69 

zeigt auf Anfang der Variablen 

E055- 

IDX 

$6A 


E057- 

LDY 

#$00 

Zeiger initialisieren 

E059- 

STX 

$9C 

Such-Zeiger setzen 

E05B- 

STA 

$9B 


E05D- 

CPX 

$6C 

prüfe, ob A,X = 6B,6C (d.h. Ende der einfachen 

E05F- 

BNE 

$E065 

Variablen erreicht? ) 

E061- 

CMP 

$6B 


E063- 

BEQ 

$E087 

ja. Variable nicht gefunden —> neu einrichten 

E065- 

IDA 

$81 

1. Nanensbyte 

E067- 

GMP 

($9B),Y 

vergleichen 

E069- 

BNE 

$E073 

stimmt nicht überein, weiter mit nächster Variablen 

E06B- 

IDA 

$82 

sonst 2. Namensbyte 

E06D- 

INY 



E06E- 

(31P 

($9B),Y 

vergleichen 

E070- 

BBQ 

$E0DE 

stimmt auch. Variable gefunden —> fertig 

E072- 

DEY 



E073- 

CDC 


sonst Suchzeiger um 7 (= Länge der Variablen) 

E074- 

IDA 

$9B 

erhöhen 

E076- 

ADC 

#$07 


E078- 

BCC 

$E05B 


E07A- 

INX 


HByte korrigieren falls nötig 

E07B- 

BNE 

$E059 

A,X zeigt nun auf nächste Variable, diese vergleichen 

prüfe, 

ob Zeichen im Accu ein Buchstabe ist 

0: C=1 

falls 

Buchstabe 


E07D- 

CMP 

#$41 

Ascii für "A" 

E07F- 

BOC 

$E086 

kleiner, kein Buchstabe 

E081- 

SBC 

#$5B 


E083- 

SBC 



E084- 

SBC 

#$A5 

C=l, falls Accu kleiner als $5B var, d.h. Buchstabe 

E086- 

RTS 



einfache Variable neu einrichten 

E087- 

PLA 


Rücksprungadresse, LByte nach Accu 

E088- 

EHA 



E089- 

CMP 

#$D7 

von $DDD7 aufgerufen, d.h. von Ausdruck-Auswertung? 

E08B- 

ara; 

$E09C 

nein, also Variable neu einrichten 

E08D- 

TSX 



E08B- 

IDA 

$0102 ,X 

Rücksprungadresse, HByte holen 

E091- 

CMP 

#$DE 

von $DED5 aufgerufen,d.h. Variablenwert-Bestimmung ? 

E093- 

aJE 

$E09C 

nein, also Vsiriable neu einrichten 

E095- 

IDA 

#$9A 

nicht neu einrichten, da gesuchter Variable nichts 

E097- 

IDY 

#$E0 

zugewiesen wird. Zurück mit Zeiger auf FP-Konst = 0 

E099- 

RTS 



E09A- 

00 00 


FP-Konst. = 0 (nur Exp,MSB) 


Platz für neue einfache Variable schaffen 
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E09C- 

LDA 

$6B 

Anfang der Feldvariablen 

E09E- 

LDY 

$6C 


EOAO- 

STA 

$9B 

als alter Blockanfang 

E0A2- 

STY 

$9C 


E0A4- 

LEA 

$6D 

Ende der Feldvariablen +1 

E0A6- 

LDY 

$6E 


E0A8- 

STA 

$96 

als altes Blockende +1 

EOAA- 

STY 

$97 


EOAC- 

CLC 



EOäD- 

ADC 

#$07 

plus 7 

EOäF- 

BCC 

$E0B2 

EOBl- 

INY 



E0B2- 

STA 

$94 

als neues Blockende +1 

E0B4- 

STY 

$95 


E0B6- 

JSR 

$0393 

Feldvariablen um 7 Byte verschieben 

E0B9- 

LEA 

$94 

neuer Blockanfang 

EOBB- 

LDY 

$95 


EOBD- 

INY 



EOBE- 

STA 

$6B 

als neuen Anfang der Feldvariablen eintragen 

EOCO- 

STY 

$6C 

neue Variable 

initialisieren 

E0C2- 

IDY 

#$00 


E0C4- 

LDA 

$81 

1. Namensbyte 

E0C6- 

STA 

($9B),Y 

eintragen 

E0C8- 

INY 



E0C9- 

LDA 

$82 

2. Naraensbyte 

EOCB- 

STA 

($9B),Y 

eintragen 

EOCD- 

IDA 

#$00 


EOCP- 

INY 


Variablai-Eintragung nullsetzen 

EODO- 

STA 

($9B),Y 

E0D2- 

INY 



EOD3- 

STA 

($9B),Y 


E0D5- 

INY 



E0D6- 

STA 

($9B),Y 


E0D8- 

INY 



E0D9- 

STA 

($9B),Y 


EODB- 

INY 



EODC- 

STA 

($9B),Y 


Zeiger auf neue Variable setzen 

EODE- 

IDA 

$9B 

Zeiger auf Variablennamen 

EOEO- 

ac 



EOEl- 

ADC 

#$02 

um 2 erhöhen 

E0E3- 

IDY 

$9C 


E0E5- 

BOC 

$E0E8 


E0E7- 

INY 



E0E8- 

STA 

$83 

ergibt Zeiger auf Variabien-Eintragung 

EOEA- 

STY 

$84 

EOEC- 

KTS 




Zeiger hinter Feldvariablen-Kcpf setzen 


EOED- 

IDA 

$0F 

Anzahl der Dimensionen 

EOEP- 

ASL 


verdoK)eln 

EOFO- 

ADC 

#$05 

und 5 addieren ergibt Länge des Variablenkopfes 

E0F2- 

ADC 

$9B 

Länge zu Zeiger auf Variablennamen addieren 

E0F4- 

IDY 

$9C 


E0F6- 

BCC 

$E0F9 


E0F8- 

INY 



E0F9- 

STA 

$94 

ergibt Zeiger hinter Variablenkcpf, d.h. auf 
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EOFB- 

STY 

$95 

erste Eintragung 

EOFD- 

RTS 



s EOEE- 

90 80 

00 00 (20) 

FP-Konst.= -32768.0005 

hole Feldindex aus Programntext 

E102- 

JSR 

$00B1 

erstes Zeichen holen 

E105- 

JSR 

$DD67 

nunerischen Ausdruck auswerten —> FACl 

E108- 

IBA 

$A2 

Vorzeichen von FACl 

ElOA- 

BMI 

$E119 

Index ngativ ~> IELB3AL QUANTITX ERROR 

FACl in 

Integer irniwandeln (Integer in A0,A1) 

1 I^r EIOC- 

IBA 

S9D 

Exponent von FACl 

ElOE- 

OtP 

#$90 

Höchstwert für gültige Integer 

Eaio- 

BOC 

$E11B 

Betrag von FACl kleiner 32768 

E112- 

IBA 

#$FE 

Zeiger auf FP-Kcxistante -32768.0005 

E114- 

IDY 

#$E0 


E116- 

JSR 

$EBB2 

FACl mit Kcnstante vergleichen 

E119- 

BNE 

$E199 

FACl kleiner als -32768 —> ILEBSAL QUANTITY 

EllB- 

JMP 

$EBF2 

FACl in Integerformat bringen 

Feldvariable suchen 


EllE- 

IBA 

$14 

Variabien-Hilfsflag 

E120- 

BNE 

$E169 

=$40 (Aufruf von STORE), keine Indizierung auswerten 

E122- 

IBA 

$10 

DIM-Flag 

E124- 

ORA 

$12 

mit Integer-Flag kcmbinieren 

E126- 

FUA 


und retten 

E127- 

WA 

$11 

String-Flag 

E129- 

HJA 


retten 

E12A- 

IBiT 

#$00 

Dimensionenzähler initialisieren 

E12C- 

TYA 



E12D- 

HJA 


Anzahl auf Stack geretteter Indices 

E12E- 

WA 

$82 

Variablenname 

E130- 

PHA 


auf Stack retten 

E131- 

WA 

$81 


E133- 

PHA 



E134- 

JSR 

$E102 

Index aus Programmtext holen 

E137- 

PTA 


Variablainame wieder von Stack holen 

E138- 

STA 

$81 


E13A- 

ELA 



E13B- 

STA 

$82 


E13D- 

PLA 


Dimensionen zähl^ 

E13E- 

TMf 


nach Y 

E13F- 

TSX 



E140- 

IBA 

$0102 ,X 

DIM/Integer-Flag 

E143- 

PHA 


kopieren 

E144- 

LDA 

$0101,X 

String-Flag 

E147- 

HIA 


Joopieren 

E148- 

IBA 

$A0 

Indexljytes ersetzen Flags am alten Ort im Stack 

E14A- 

STA 

$0102,X 


E14D- 

LDA 

$A1 


E14F-- 

STA 

$0101,x 


E152- 

INY 


Dünensionenzähler erhcäien 

E153- 

JSR 

$00B7 

hole nächstes Zeichen 

E156- 

CMP 

#$2C 

Karma? 

E158- 

BEQ 

$E12C 

ja, nächsten Index verarbeiten 

EISA- 

sry 

$0F 

Anzahl der Dimensionen merJcen 

E15C- 

JSR 

$DEB8 

prüfe ob ")" folgt, scaist SYNTAX ERROR 

E15F- 

PLA 


Stringflag 
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E160- 

STA 

$11 

wiederherstellen 

E162- 

PIA 


Integer/DIM-Flag wiederherstellen 

E163- 

STA 

$12 


E165- 

AND 

#$7F 


E167- 

STA 

$10 


E169- 

LDX 

$6B 

Anfang der Feldväriablen 

E16B- 

LDA 

$6C 


E16D- 

STX 

$9B 

in Suchzeiger eintragen 

E16F- 

STA 

$9C 


E171- 

CMP 

$6E 

Feldvariablen-Enie +1 erreicht? 

E173- 

BNE 

$E179 

nein 

E175- 

CPX 

$6D 

LByte vergleichen 

E177- 

BEQ 

$ElB8 

ja, Feld neu einrichten 

E179- 

LDY 

#$00 


E17B- 

LDA 

($9B),Y 

sonst Variablennanen vergleichen 

E17D- 

INY 



E17E- 

CMP 

$81 

1. Namensbyte 

E180- 

BNE 

$E188 

stimmt nicht überein 

E182- 

LDA 

$82 

2. Namensbyte 

E184- 

CMP 

($9B),Y 

vergleichen 

E186- 

BBQ 

$E19E 

stimmt. Feldvariable gefunden, Elanent suchen 

E188- 

INY 



E189- 

im 

($9B),Y 

sonst Länge der Feldvariablen 

E18B- 

CLC 



E18C- 

ADC 

$9B 

zum Suchzeiger addieren 

E18B- 

TAX 



E18F- 

INY 



E190- 

LCiA 

($9B),Y 


E192- 

ADC 

$9C 


E194- 

BOC 

$E16D 

neue Peldvariable vergleichen 

E196- 

LDX 

#$6B 

Kode für BAD SDBSCRIPT ERROR 

E198- 

BIT 

$35A2 

—> E199- IDX #$35 (Kode für ILLEGAL QUANTITY ERROR) 

E19B- 

OMP 

$0412 

Fehlermeldung bearbeiten 

E19E- 

LDX 

#$78 

Kode für REDIM'D ARRAY ERROR 

ElAO- 

LDA 

$10 

DIM-Flag 

E1A2- 

BNE 

$E19B 

gesetzt —> REDIM'D ARRAY ERROR 

E1A4- 

LDA 

$14 

= $40 falls von STORE aufgerufen, sonst 00 

E1ä6- 

BBQ 

$E1AA 

nicht von STORE, Feldelennent suchen 

E1A8- 

SBC 


von STORE gerufen, fertig 

E1ä9- 

RTS 



EIAA- 

JSR 

$E0ID 

Zeiger 94,95 auf 1. Feldelement setzen 

ElÄD- 

LDA 

$0F 

Anzahl angegebener Dimensionen 

ElAP“ 

LDY 

#$04 


ElBl- 

CMP 

($9B),Y 

mit Diroensionenzahl des Feldes vergleichen 

E1B3- 

BNE 

$E196 

stimmt nicht, —> BAD SUBSCRIPT ERROR 

E1B5- 

JMP 

$E24B 

alles ok, Feldelement suchen 

Feldvariable 

neu einrichten 

E1B8- 

LDA 

$14 

= $40 falls von STORE gerufen, sonst 00 

ElBa- 

BBQ 

$E1C1 

nicht von STORE , ok. 

EIBC- 

LDX 

#$2A 

Kode für OOT Cy DATA ERROR 

EIBE- 

JMP 

$D412 

Fehlermeldung ausgeben 

Eia- 

JSR 

$E0ED 

Zeiger 94,95 auf erstes Feldelement setzen 

E1C4- 

JSR 

$D3E3 

genug Platz für Variablenkqpf? 


Länge eines Feldelements bestiinnen 
E1C7- LDA #$00 
E1C9- TAY 


58 








SlCÄ- 

sm 

$AE 

Länge, HByte 

maz- 

UK 

#$05 


EICB- 

mv 

$81 

1. Namensbyte (Bit7=1 falls Integervariable) 

EIDO- 

SIA 

($9B),r 

in Variablenkopf eintragen 

E1D2- 

HPL 

$E1D5 

keine Integervariable, da Bit7=0 

B1D4~ 

DBC 



EU)5- 

Ufo: 



KiI36- 

IXKi 

$82 

2. Naniensbyte (Bit7=0 falls FP-Variable) 

E1D8- 

sia 

($9B),r 

in Variablenkc^f eintragen 

KUä- 


$E1I)E 

FP-Variable, da Bit7=0 

fiux:- 




E31I)- 

ISBC 



EirSE- 

SBC 

$AD 

Länge also 2/3/5 Byte bei Integer/String/FP-Variable 

einzelne Diinenslcxiierungei in Var.-Kcpf eintragen 

ElEO- 

im 

$0F 

Anzahl der Dimensionen 

E1S2- 

nnr 



Ea3E3- 

rar 



ELB4- 

rar 



mvs- 

sm 

($9B) ,r 

in Variablenkopf eintragen 


ICK 

#$0B 

A,X mit 11 vorbesetzen als Default-Wert 


ICA 

#$00 


El^B” 

BIT 

$10 

Aufruf durch DIM? 

glBTt- 

BSC 

$E1F7 

nein 

EIBF- 

PIA 


ja, DIM-Wert van Stack holen 

EIFO- 

oc 



ElEl- 

ABC 

#$01 

um 1 erhöhen »regen 0. Elanent 

EOFB- 

■mx 



R1F4- 

PIA 



mP5- 

fflx: 

#$00 

HByte korrigieren falls nötig 

E1I7- 

rar 



glPft- 

sm 

($9B) ,r 

DIM-Wert in Variablenkcpf eintragen 

EIJE&- 

rar 



KIHB- 

■BQV 



Eirc- 

sm 

($9B),r 


Fl i*t*j— 

JSS 

$B2AD 

neue Länge = alte Länge x Dimensionierung 

E201- 

SEC 

$AD 

neue Länge nerken 

E203- 

sm 

$AB 


B205- 

IC« 

$5E 

geretteten Y-Wert holen (vgl $E2AD) 

ra)7- 

im: 

$0F 

Dlmensionen-zähler dekrementieren 

E209- 

WE 

$EIE7 

weitere Dimension eintragen 

prüfoi ä> Platz reicht. 

Feld nullsetzen 

H20B- 

acc 

$95 

Feldlänge ohne Variablenkopf (X,A) zu Zeiger auf 

B20D- 

BCS 

$E26C 

erstes Feldelement (94,95) addieren. 

E20F- 

sm 

$95 

OST CF MEMCRY ERROR falls Summe > 65535 

E211- 

mr 



E212- 

ECA 


LByte berücksichtigen 

E213- 

ABC 

$94 


E215- 

BCC 

$B21A 


Ka7- 

rar 


SvBine (neues Feldvariablen-Ende +1) in A,Y 

E218- 

BBQ 

$E26C 

OST CF MEMORY ERROR 

E2U^ 

JSR 

$D3E3 

prüfe ob genügend Platz für neues Feld 

K21D- 

sm 

$60 

ok, neues Feldvariablen-Ende +1 eintragen 

KZIF- 

srr 

$6E 

E221- 

IBA 

#$00 


K223- 

rac 

$AB 


E225- 

IC« 

$AD 

als Index in Schleife 

E227- 

BBQ 

$B22E 


E229- 

EET 


Sdileife füllt Feld mit Nullen 

E22ft^ 

sm 

($94),Y 

null eintragen 
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E22C- 

Bm 

$E229 

Y nicht null, vreiter 

E22E- 

DEC 

$95 

sonst HBytes dekranentieren 

E230- 

DEC 

$AE 


E232- 

Bm 

$E229 

noch nicht fertig 

E234- 

DSC 

$95 

Zeiger auf 1. Feldelement korrigieren 

E236- 

SBC 



E237- 

LDA 

$6D 

Feldende +1 

E239- 

SBC 

$9B 

minus Kcpfanfang ergibt gesamte Länge 

E23B- 

Wi 

#$02 


E23D- 

STA 

($9B),y 

Feldlänge EByte eintragen 

E23F- 

im 

$6E 


E241- 

INY 



E242- 

SBC 

$9C 


E244- 

STA 

($9B),Y 

Feldlänge HByte eintragen 

E246- 

im 

$10 

Aufruf durch DM? 

E248- 


$E2AC 

ja, fertig 

E24A- 

im 



Feldelanent suchen 


E24B- 

im 

($9B),Y 

Anzahl der Dimensionen 

E24D- 

STA 

$0F 

merken 

E24F- 

im. 

#$00 


E251- 

STA 

$AD 

Register für laufende Nurtmer des Elanents löschen 

E253- 

STA 

$ÄE 


E255- 

INY 



E256- 

PIA 


Index von Stack nach A0,Al 

E257- 

TAX 



E258- 

STA 

$A0 


E25A- 

ELA 



E25B- 

STA 

$A1 


E25D- 

CMP 

($9B),Y 

Index mit DM-Wfert vergleichen 

E25F- 

BCC 

$E26F 

HByte kleiner, ok. 

E261- 

BNE 

$E269 

Index zu groß —> BAD SUBSCRIPT ERROR 

E263- 

m£ 


HByte gleich, LByte vergleichen 

E264- 

TXA 



E265- 

OMP 

($9B),Y 


E267- 

BCC 

$E270 

kleiner, ok. 

E269- 

JMP 

$E196 

sonst ~> BAD SUBSCRIPT ERROR 

E26C- 

JMP 

$D410 

—> OUT OF MEMORY ERROR 

E26F- 

BK 



E270- 


$ÄE 


E272- 

CE^ 

$AD 


E274- 

ac 



E275- 

BEß 

$E281 

beide Registerbytes null, nicht multiplizieren 

E277- 

JSE 

$E2AD 

X,A = AD,AE X DM-Wert 

E27A- 

TXA 



E27B- 

ADC 

$A0 

plus Index (A0 ,ä1) 

E27D- 

rax 


ergibt aktuelle Element-Position 

E27E- 

TXA 



E27F- 

LDY 

$5E 

hole gerettetes Y 

E281- 

ADC 

$A1 


E283- 

STX 

$AD 

aktuelle Element-Position in Register nerken 

E285- 

DEC 

$0F 

Dimensionen-Zähler dekrementieren 

E287- 

OJE 

$E253 

weitere Dimension berücksichtigen 

E289- 

STA 

$AE 

AD,AE althält nun Elonent-Position im Feld 

E28B- 

LEK 

#$05 

Elementlänge aus Variablenart bestimmen 

E28D- 

I£tA 

$81 

1. Namensbyte (Bit7=1 falls Integer-Variable) 

E28F- 

BPL 

$E292 

nicht Integer 

E291- 

DEX 
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E292- 

im 

$82 

2. Natnensbyte (Bit7=0 falls FP-Variable) 

E294- 

BPL 

$E298 

FP-Variable 

E296- 

DEX 



E297- 

DFX 



E298- 

SEX 

$64 

Länge = 2/3/5 bei Integer/String/FP-Variable 

E29A- 

um 

#$00 

Länge, HByte 

E29C- 

JSR 

$E2B6 

Abstand X,Y = Länge x Position 

E29F- 

OXA 


Abstand 

E2ao- 

ADC 

$94 

zu Zeiger auf 1. Feldelement addieren 

E2A2- 

STA 

$83 


E2A4- 

TSTA 



E2A5- 

ADC 

$95 


E2A7- 

STA 

$84 

83,84 zeigt nun auf gesuchtes Element 

E2A9- 

TAY 



E2AA- 

IDA 

$83 

A,Y ebenfalls 

E2ftC- 

RTS 



Multiplikationsroutine 


Faktoren in AD/AE und (9B),Y / (9B),Y+1 

Produkt 

in X,Y bzw. X,A 


E2AD- 

STY 

$5E 

rette Y 

E2SF- 

LOA 

($9B),Y 

Multiplikand nach 64,65 übertragen 

E2B1- 

STA 

$64 


E2B3- 

DEY 



,E2B4- 

IDA 

($9B),Y 


E2B6- 

STA 

$65 


E2B8- 

um 

#$10 

d.h. 16 

E2BA- 

STA 

$99 

als Bitzähler für 2^fte-Multiplikation 

E2BC- 

LDX 

#$00 

Ergefcmisregister löschen 

E2BE- 

IDY 

#$00 


E2C0- 

OXA 


Ergebnisregister linksverschieben 

E2C1- 

ASL 



E2C2- 

TRX 



E2C3- 

TYA 



E2C4- 

ROL 



E2C5- 

TAY 



E2C6- 

BCS 

$E26C 

Oberlauf —> OOT CF MB50RY ESRDR 

E2C8- 

ASL 

$AD 


E2CA- 

BDL 

$AE 

Multiplikator-Bit —> C 

E2CC- 

BOC 

$E2D9 

Bit = 0, nicht addieren 

E2CE- 

CLC 


Multiplikand zu Ergebnisregister addieren 

E2CF- 

TXA 



E2D0- 

ADC 

$64 


E2D2- 

TAX 



E2D3- 

TYA 



E2D4- 

ADC 

$65 


E2D6- 

TAY 



E2D7- 

BCS 

$E26C 

Überlauf —> OUT OF MEMORY ERRCR 

E2D9- 

DFE 

$99 

Bitzähler dekrementieren 

E2DB- 

EtOE 

$E2C0 

weiter mit nächster Stelle 

E2DD- 

RES 


fertig 

T^lesoft-Routine FEE 


E2DE- 

IDA 

$11 

String-Flag gesetzt? 

E2E0- 

BEQ 

$E2ES 

nein 

E2E2- 

JSR 

$E600 

sonst unnützen String altfernen, falls erforderlich 

E2FS- 

JSR 

$E484 

(Sarbage Collection durchführen 

E2E8- 

SEC 



E2E9- 

UA 

$6F 

Anfang des Stringbereichs 

E2EB- 

SBC 

$6D 

minus Variablen-Endefl 
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E2ED- 

TAY 


ergibt freien Speicherplatz 

E2EE- 

LDA 

$70 


E2F0- 

SBC 

$6E 


Integer 

in Y,A nach FACl übertragen 

E2F2- 

IDX 

#$00 


E2F4- 

STX 

$11 

String-Flag löschen 

E2F6- 

soa 

$9E 

Integer in FACl-Mantisse eintragen 

E2F8- 

STY 

$9F 


E2FA- 

IDX 

#$90 

Exponentenwert für FACl 

E2PC- 

OMP 

$EB9B 

weiter wie bei SGN-Routine 

Applesoft-Routine POS 


E2EF- 

IDY 

$24 

Cursorspalte 

E301- 

LDA 

#$00 

0 als HByte 

E303- 

SEC 



E304- 

BBQ 

$E2F2 

nach FACl übertragen 

prüfe dD unzulässiger Direktmodus 

E306- 

LDX 

$76 

= $EF bei Direktmodus 

E308- 

BK 



E309- 

BNE 

$E2AC( Programm-Modus, fertig 

E30B- 

I£IX 

#$95 

Kode für ILLEGAL DIRECT 

E30D- 

BIT 

$E0A2 

—> E30E- IDX #$E0 , d.h. Kode für UNDEF'D FOJCTION 

E310- 

JMP 

$D412 

zur Fehlerausgaberoutine 

! Applesoft-Routine DEF 

(Funktion definieren) 

1 2 .B. DEF FN F(X), vobei F ® Name, X = Argument 

j E313- 

JSR 

$E341 

Namen to: Funktion bestiramen 

1 E316- 

JSR 

$E306 

prüfe ob ILLEGAL DIRECT 

j E319- 

JSR 

$DEBB 

prüfe ob ”(” folgt 

E31C- 

LDA 

#$80 

sperre Integer-variablen als Argument 

E31E- 

STA 

$14 


E320- 

JSR 

$DFE3 

suche Argument-Variable 

E323- 

JSR 

$DD6A 

muß numerisch sein 

E326- 

JSR 

$DEB8 

prüfe ob ")" folgt 

E329- 

LDA 

#$D0 

Token für ''=" 

E32B- 

JSR 

$DEC0 

muß folgen, sonst SYNTAX ERROR 

E32E- 

FHA 


1. Zeichen der FN-Definition auf Stack 

E32F- 

LDA 

$84 

Zeiger auf Argument-Variable 

E331- 

HJA 


auf Stack retten 

E332- 

IDA 

$83 


E334- 

POA 



E335- 

LDA 

$B9 

CHRGET-Zeiger (zeigt auf FN-Definition) 

E337- 

im 


auf Stack retten 

E338- 

inA 

$B8 


E33A- 

IHA 



E33B- 

JSR 

$D995 

CHRGET-Zeiger auf nächstes Trennzeichen setzen 

E33B- 

JMP 

$E3äF 

5 Byte von Stack in EN-Namensvariable eintragen 

FN-Namansvariable aus Programmtext holen 

E341- 

IDA 

#$C2 

Token für FN 

E343- 

JSR 

$DEC0 

muß folgen, sonst SYNTAX ERROR 

E346- 

CRA 

#$80 

sperre Integervariable 

E348- 

STA 

$14 


E34A- 

JSR 

$EPEA 

suche FN-Namensvariable 

E34D- 

STA 

$8A 

Zeiger auf FN-Namensvariable 

E34P- 

STY 

$8B 
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E351- 

OMP 

$DD6A 

prüfe ob numerische Variable (also FP), fertig 

Funktion, z.B. 

FN F(X) 

auswerten 

E354- 

JSR 

$E341 

FN-Namensvariable suchen 

E357- 

nm 

$8B 

Zeiger auf FN-Namensvariable auf Stack retten 

E359- 

HJA 



E35a- 

IJDA 

$8A 


E35C- 

PEJA 



E35I>- 

JSR 

$DEB2 

Klammerausdruck mit Argument auswerten —> EACl 

E360- 

JSR 

$E06A 

prüfe ob numerisch 

E363- 

PIA 


Zeiger auf FN-Namensvariable wieder holen 

E364- 

STA 

$8a 


E366- 

PIA 



E367- 

STA 

$8B 


E369- 

U3Y 

#$02 


E36B- 

IDA 

($8A),Y 

Zeiger auf Argument-Variable nach 83,84 bringen 

E36D- 

STA 

$83 


E36F- 

TAX 



E370- 

INY 



E371- 

IDA 

($8A),Y 


E373- 

BEQ 

$E30E 

keine FN-Paraireter vorhanden, CISDEF'D FUNCTION ERROR 

E375- 

STA 

$84 

sonst noch HByte eintragen 

E377- 

ISK 



E378- 

IDA 

($83),Y 

momentanen Wert der Argument-Variable 

E37A- 

PHA 


auf Stack retten 

E37B- 

DEY 



E37C- 

BPL 

$E378 


E37E- 

IDY 

$84 

X,Y zeigt auf Argument-Variable 

E380- 

JSR 

$EB2B 

FN-Argument in Argument-Variable eintragen 

E383- 

IDA 

$B9 

CHRGET-Zeiger auf Programmzeile 

E385- 

PHA 


auf Stack retten 

E386- 

IDA 

$B8 


E388- 

PHA 



E389- 

IDA 

($8a),y 

CHRGET-Zeiger auf FN-Ausdruck setzen 

E38B- 

STA 

$B8 


E38D- 

INY 



E38E- 

IDA 

($8A),Y 


E390- 

STA 

$B9 


E392- 

IDA 

$84 

Zeiger auf Argument-Variable auf Stack retten 

E394- 

PHA 



E395- 

IDA 

$83 


E397- 

PHA 



E398- 

JSR 

$DD67 

FN-Ausdruck auswerten, Ergebnis nach FACl 

E39B- 

PIA 


Zeiger auf Argument-Variable nach 8A,8B 

E39C- 

STA 

$8A 

(ab E3AF wird ursprünglicher Wert eingetragen) 

E39E- 

PIA 



E39F- 

STA 

$8B 


E3A1- 

JSR 

$00B7 

hole Zeichen (hinter FN-Definitionsausdruck) 

E3A4- 

HEQ 

$E3A9 

Trennzeichen, ok. CHRGET u. Argument-var. wie zuvor 

E3A6- 

JMP 

$DBC9 

sonst SYNTAX ERROR 

E3A9- 

PIA 


(2KGET wieder auf Progranmzeile richten 

E3AA- 

STA 

$ß8 


E3AC- 

PIA 



E3AD- 

STA 

$B9 



5 Byte von Stack ab Zeiger 8A,8B eintragen 


E3AF- 

IDY 

#$00 

E3B1- 

PIA 


E3B2- 

STA 

($8A),Y 

E3B4- 

PLA 


E3B5- 

INY 
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E3B6- 

STA 

($8A),Y 


E3B8- 

PLA 



E3B9- 

im 



E3BA- 

STA 

($8A),Y 


E3BC- 

PLA 



E3BD- 

im 



E3BE- 

STA 

($8A),Y 


E3C0- 

PLA 



E3C1- 

INY 



E3C2- 

STA 

($8A),Y 


E3C4- 

RTS 



Applesoft-Funktion STR$ 


E3C5- 

JSR 

$IX>6A 

prüfe, ob Argument numerisch 

E3C8- 

LDY 

#$00 

als Zeiger, String wird ab $00EF,Y zwischengespeichert 

E3CA- 

JSR 

SED36 

Argument in FACl —> String ab $00FP 

E3CD- 

PLA 


Rücksprung-Adresse entfernen 

E3CE- 

PLA 



E3CF- 

Wk 

#$EF 

Zeiger auf Stringanfang 

E3D1- 

im 

#$00 


E3D3- 

BEQ 

$E3E7 

String auswerten (Deskriptor bestimmen etc.) 


Platz für String schaffen, Deskriptor bestiitmen 


I: Accu 

enthält Stringlänge 

E3D5- 

LCK 

$A0 

Zeiger auf neuesten String im Deskriptoren-! 

E3D7- 

LDY 

$A1 


E3D9- 

STX 

$8C 

als Zeiger auf aktuellen Deskriptor 

E3DB- 

STY 

$8D 


E3DD- 

JSR 

$E452 

unteres Stringende herabsetzen 

E3E0- 

STX 

$9E 

Deskriptor für neugeschaffenen Platz: 

E3E2- 

STY 

$9F 

9E,9F = Adresse des Stringanfangs 

E3E4- 

STA 

$9D 

9D = Stringlänge 

E3E6- 

RTS 




Stringdeskriptor bestimmen und auf Deskript.-Stack, 
String -> Stringbereich, falls aus Page 0 oder 2 
I: A,Y zeigt auf Stringanfang 

O: 9D,9E,9F = Deskriptor; A0,Äl zeigt auf Deskr.Stack 
AD,AE zeigt hinter String 


E3E7- 

LDX 

#$22 

Ascii für Anführungszeichen 

E3E9- 

STX 

$0D 

als Endmarken eintragen 

E3EB- 

STX 

$0E 


E3IE- 

STA 

$AB 

Zeiger auf Stringanfang als Arbeitszeiger 

ElIF- 

STY 

$AC 


E3F1- 

STA 

$9E 

und für Deskriptor merken 

E3P3- 

STY 

$9F 


E3F5- 

IDY 

#$FF 

als Inlex für Schleife 

E3F7- 

INY 



E3F8- 

IDA 

C$AB),Y 

hole Zeichen 

E3FA- 

HEQ 

$E408 

Enämarke, Ende gefunden 

E3rc- 

CMP 

$0D 

Enämarke 1? 

E3FE- 

HEQ 

$E404 

ja, Ende gefunden 

E400- 

CMP 

$0E 

Enämarke 2? 

E402- 

BNE 

$E3F7 

nein, suche weiter nach Stringende 

E404- 

CMP 

#$22 

Enämarke 1/2 = Anführungszeichen? 

E406- 

BBQ 

$E409 

ja, dann C=1 

E408- 

CLC 



E409- 

STY 

$9D 

Stringlänge in Deskriptor eintragen 
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E40ß- 

TYA 


Länge 

E40C- 

ADC 

$AB 

zu Stringanfang addieren (plus 1 falls mit " ) 

E40E- 

STA 

$AD 

ergibt Zeiger hinter String 

E410- 

LDX 

$AC 


E412- 

BCC 

$E415 


E414- 

INX 


HByte korrigieren falls nötig 

E415- 

STX 

$AE 


E417- 

IDA 

$AC 

Stringanfang 

E419- 

HBQ 

$E41F 

String beginnt in Zeropage (vgl STR$), kopieren 

E41B- 

CMP 

#$02 

beginnt String in Page 2? (d.h. INPtjr,C3ET) 

E41D- 

BNE 

$E42A 

nein, nicht kopieren (bei PRINT, oder aus Programm) 

E41F- 

TXA 


Stringlänge 

E420- 

JSR 

$E3D5 

Platz in Stringbereich schaffen, Deskr. -> 9D,9E,9F 

E423- 

IDK 

$AB 

Zeiger auf Anfang des Originalstring 

E425- 

IDY 

$AC 


E427- 

JSR 

$E5E2 

Originalstring in Stringbereich kopieren 


Deskriptor auf Deskriptoren-Stack setzen 


E42A- 

IISC 

$52 

Zeiger für neue Eintragung in Deskriptoren-Stack 

E42C- 

(3>X 

#$5E 

- Deskriptorenstack ($0055-$005D) voll? 

E42E- 

BNE 

$E435 

nein, neuen Deskriptor eintragen 

E430- 

LDX 

#$BF 

Kode für FOMUIA TOO OOMPLEX ERROR 

E432- 

JMP 

$D412 

Fehlermeldung bearbeiten 

E435- 

IDA 

$9D 

Deskriptor in Stack eintragen, X als Zeiger 

E437- 

STA 

$00 ,X 


E439- 

IDA 

$9E 


E43B- 

STA 

$01 ,X 


E43D- 

IDA 

$9F 


E43F- 

STA 

$02 ,X 


E441- 

IDY 

#$00 


E443- 

STX 

$A0 

A0,Al zeigt auf neuesten Deskriptor im Deskr.-Stack 

E445- 

STY 

$A1 


E447- 

DEY 


= $EF 

E448- 

STY 

$11 

Stringflag setzen 

E44A- 

STX 

$53 

Adresse des obersten Deskriptors im Stack 

E44C- 

INX 



E44D- 

INX 



E44E- 

INX 


plus 3 

E44F- 

STX 

$52 

ergibt Zeiger für nächste Eintragung 

E451- 

BTS 




Platz für neuen String im Stringbereich schaffen 
I: Accu = Stringlänge 

0: A,X,Y = neuer Deskriptor; 71,72 neue Anfangsadresse 


E452- 

LSR 

$13 

lösche Garbage-Collection-Flag 

E454- 

PHA 


Länge merken 

E455- 

BOR 

#$EF 


E457- 

SEC 



E458- 

ADC 

$6F 

d.h. Länge wird subtrahiert von Stringbereich-Aitfang 

E45A- 

IDY 

$70 


E45C- 

BCS 

$E45F 


E45E- 

DEY 


HByte korrigieren falls nötig 

E45F- 

CPY 

$6E 

mit Feldvariablen-Ende +1 vergleichen 

E461- 

BCC 

$E474 

zu »enig Platz —> (larbage Collection 

E463- 

BNE 

$E469 

Platz reicht, weiter 

E465- 

CMP 

$6D 

HBytes gleich, prüfe LByte 

E467- 

BCC 

$E474 

zu venig Platz —> Garbage Collection 

E469- 

STA 

$6F 

neuer Stringbereich-Anfang 

E46B- 

STY 

$70 


E46D- 

STA 

$71 

Hilfszeiger für String-Kcpierroutine 
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E46F- 

sry 

$72 


E471- 

lax 



E472- 

PEA 


damit Deskriptor in A,X,Y 

E473- 

RTS 


fertig 

E474- 

LDX 

#$4D 

Kode für OOT QF MEVIORX ERROR 

E476- 

HA 

$13 

= $80, falls Garbage Collection schon durchgeführt 

E478- 

EMI 

$E432 

Föilermeldung bearbeiten 

E47A- 

JSR 

$E484 

sonst Garbage Collection durchführen 

E47D- 

HA 

#$80 

imd im Garbage-Colection-Flag vermerken 

E47F- 

SOA 

$13 


E481- 

PIA 


Stringlänge holen 

E482- 

Bm 

$E454 

prüfen, c4> nun geni^end Platz 

Garbage Collection Routine 

E484- 

LDX 

$73 

HIMEM, d.h. Stringbereich-Ende +1 

E486- 

LDA 

$74 


E488- 

STX 

$6F 

als Stringbereich-Anfang (damit mcmentan keine Strings 

E48A- 

STA 

$70 


E48C- 

LDV 

#$00 


E48B- 

STX 

$8B 

als Abbruch-Flag (bleibt null, falls alle Var. fertig) 

E490- 

IDA 

$6D 

Feldvariablen-Ende +1 

E492- 

IDX 

$6E 


E494- 

STA 

$9B 

als Zeiger auf höchsten zu berüclcsichtigenden String 

E496- 

STX 

$9C 

(im folgenden als Top-String bezeichnet) 

E498- 

IDA 

#$55 

Zeiger auf Beginn des Deskriptoren-Stack 

E49A- 

IDX 

#$00 


E49C- 

STA 

$5E 

als Suchzeiger (durchläuft sämtliche Deskriptoren) 

E49E- 

STX 

$5F 


Strings aus 

Deskriptoren-Stack beröddchtigen 

E4A0- 

CMP 

$52 

Suchzeiger hinter letzter Eintragung im Deskr.-Stack? 

E4A2- 

BEQ 

$E4A9 

ja, damit Deskriptoren-Stack ganz berücksichtigt 

E4A4- 

JSR 

$E523 

falls Top-String, in 9B,9C und 8A,8B merken 

E4A7- 

HBQ 

$E4A0 

weiter im Des)criptoren-Stack 

Strings aus 

einfachen Variablen berücksichtigen 

E4A9- 

IDA 

#$07 

Länge einfacter Variablen = 7 Bytes 

E4AB- 

STA 

$8F 

merJcen 

E4AD- 

IDA 

$69 

Anfang der einfachen Variablen 

E4AF- 

IDX 

$6A 


E4B1- 

STA 

$5E 

als Suchzeiger 

E4B3- 

STX 

$5F 


E4B5- 

CPX 

$6C 

Anfang der Feldvariablen erreicht? 

E4B7- 

HNE 

$E4BD 

nein 

E4B9- 

CMP 

$6B 

LByte vergleiciien 

E4BB- 

HBQ 

$E4C2 

einfache Variable fertig, weiter mit Feldvariablen 

E4BD- 

JSR 

$E519 

String-Parameter iterken, falls neuer Top-String 

E4C0- 

BEQ 

$E4B5 

weiter mit nächster Variablen 

Strings aus 

Feldvariablen berücksichtigen 

E4C2- 

STA 

$94 

Zeiger auf Feldvariablen-Kcpf setzen 

E4C4- 

STX 

$95 


E4C6- 

IDA 

#$03 

Länge einzelner Elanente im Stringfeld = 3 Bytes 

E4C8- 

STA 

$8F 

merken 

E4CA- 

IDA 

$94 

Zeiger auf Kopf der aktuellen Feldvariable 

E4CC- 

IDX 

$95 


E4CE- 

CPX 

$6E 

Feldvariablen-Ende +1 erreicht? 

E4D0- 

BNE 

$E4D9 

nein, aJctuelle Feldvariable bearbeiten 

E4D2- 

CMP 

$6D 

LByte vergleichen 

E4D4- 

BNE 

$E4D9 

alttuelle Feldvariable bearbeiten 
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Ende erreicht, Otp-String übernehmen 


E4D6- OMP $E562 


einzelne Feldvariable 


E4D9- 

STA 

$5E 

E4nB- 

STX 

$5F 

E4DD- 

IDY 

#$00 

E4EE'- 

IDA 

($5E),Y 

E4E1- 

TAX 


E4E2- 

INY 


E4E3- 

IDA 

($5E),Y 

E4E5- 

PHP 


E4E6- 

INY 


E4E?- 

LDA 

($5E),Y 

E4E9- 

ADC 

$94 

E4EB- 

STA 

$94 

E4ED- 

INY 


E4EE- 

IDA 

($5E),Y 

E4F0- 

ADC 

$95 

E4F2- 

STA 

$95 

E4F4- 

PLP 


E4F5- 

BPL 

$E4CA 

E4F?- 

IXA 


E4F8- 

BMI 

$E4CA 

E4FA- 

INY 


E4FB- 

LDA 

($5E),Y 

E4FD- 

IDY 

#$00 

E4FF- 

ASL 


E500- 

ADC 

#$05 

E502- 

ADC 

$5E 

E504- 

STA 

$5E 

E506- 

BCC 

$E50A 

E508- 

INC 

$5F 

E50A- 

IDX 

$5F 

E50C- 

CPX 

$95 

E50E- 

BNE 

$E514 

E510- 

CMP 

$94 

E512- 

BBQ 

$E4CE 

E514- 

JSR 

$E523 

E51?- 

BEQ 

$E50C 


bearbeiten 

als Suchzeiger auf einzelne Feldelatente 


1. Namensbyte 
retten 

2. Nartensbyte 
Bit? retten 

Länge der Feldvariablen 

zu Zeiger auf Variablen-Kopf addieren 


KBytes addieren 

ergibt Zeiger auf nächste Feldvariable 
hole Bit? aus 2. Nartensbyte 
=0, d.h. keine Stringvariable, gleich vreiter 
1. Naznensbyte 

Bit?=l, d.h. keine Stringvariable, gleich vreiter 
Anzahl der Dimensionen 
X 2 

plus 5 ergibt Variablen-Kcpflänge 
zu Zeiger auf Kcpfanfang addieren 
ergibt Zeiger auf erstes Element 


nächste Feldvariable erreicht (d.h. diese fertig)? 
nein 

LByte vergleichen 
weiter mit nächster Feldvariablen 
Stringparaneter nerken, falls neuer Tpp-String 
«reiter mit nächsten Element 


prüfe, 

E519- 

E51B- 

E51D- 

E51E- 

E520- 

E522- 

E523- 

E525- 

E52?- 

E528- 

E52A- 

E52B- 

E52C- 

E52E- 

E530- 

E532- 

E534- 

E536- 

E538- 

E53A- 


ob neuen Tcp-String gefunden 


IDA 

BMI 

INY 

im 

BPL 

IKK 

IDA 

BBQ 

INY 

IDA 

TAX 

INY 

LDA 

CMP . 

BOC 

BNE 

CPX 

BCS 

CMP 

BCC 


($5E),Y 1. Nartensbyte 

$E552 Bit?=l, keine Stringvariable, gleich weiter 

($5E),Y 2. Nanensbyte 

$E552 Bit?=0, keine Stringvariable, gleich weiter 

($5E),Y Länge des Strings 

$E552 = null, nicht Top-String 

($5E),Y Anfangsadresse des Strings 


(S5E),Y nach X,A 

$?0 Adresse im Stringbereich? 

$E538 nein, String also txxrh nicht berücksichtigt 

$E552 ja, String bereits als aktuell erkannt 

$6F LByte vergleichen 

$E552 

$9C liegt String über bisherigart Tcp-String? 

$E552 nein, weiter 


6? 



E53C- 

Kffi 

$E542 

ja, neuer Tcp-String gefunden 

E53E- 

CPX 

$9B 

LByte vergleichen 

E540- 

BCC 

$E552 


E542- 

STX 

$9B 

Zeiger auf neuen Top-String setzen 

E544- 

STA 

$9C 


E546- 

nm 

$5E 

Zeiger auf zugehörigen Deskriptor 

E548- 

IßSC 

$5F 


E54A- 

STA 

$8A 

nerken 

E54C- 

STX 

$8B 


E54E- 

LDA 

$8F 

Abstand zu nächsten Deskriptor 

E550- 

STA 

$91 

merken 

E552- 

IflA 

S8F 

Abstand zu nächstem Deskriptor 

E554- 

CIC 



E555- 

ADC 

$5E 

zu Suchzeiger addieren 

E557- 

STA 

$5E 


E559- 

HX 

$E55D 


E55B- 

mc 

$5F 


E55D- 

IDX 

$5F 

ergibt neuen Suchzeiger 

E55F- 

UDY 

#$00 


E561- 

RTS 


weiter mit nächstem Deskriptor 


Top-String in 

Stringbereich übernehmen 

E562- 

r£K 

$8B 

Deskriptorzeiger, =0 falls kein Tcp-String gefunden 

E564- 

BEQ 

$E55D 

=0, Garbage Collection beendet 

E566- 

um 

$91 

= 7 bei einfacher Variabler, sonst = 3 

E568- 

ÄND 

#$04 

ergibt 4 oder 0 

E56A- 

ISR 


ergibt 2 oder 0 

E56B- 

TAY 


als Index (bei einfacher variable Namen überspringen) 

E56C- 

STA 

$91 

merken 

E56E- 

IDA 

($8A),Y 

Stringlänge aus Deskriptor 

E570- 

ADC 

$9B- 

plus Zeiger auf String 

E572- 

STA 

$96 

ergibt EJidadresse +1 (für Versohiebe-Routine) 

E574- 

IDA 

$9C 


E576- 

ADC 

#$00 


E578- 

STA 

$97 


E57A- 

LDA 

$6F 

bisheriger Anfang der Strings 

E57C- 

im 

$70 


E57E- 

STA 

$94 

als neues Blockende +1 

E580- 

STX 

$95 


E582- 

JSR 

$D39A 

String in Stringbereich kopieren 

E585- 

IDY 

$91 


E587- 

INY 


gemerkten Index erhcäien 

E588- 

LDA 

$94 

neue Stringadresse in 94,95+1 

E58A- 

STA 

($8A),Y 

in Deskriptor eintragen 

E58C- 

TAX 



E58D- 

INC 

$95 


E58F- 

um 

$95 

X,A zeigt auf neuen Anfang der Strings 

E591- 

INY 



E592- 

STA 

C$8A),Y 

HByte noch in Deskriptor eintragen 

E594- 

OMP 

$E488 

weiter mit Suche nach neuem Tcp-String 

Strings verketten 


E597- 

IDA 

$A1 

Zeiger auf Deskriptor des 1. Strings 

E599- 

EHA 


auf Stack retten 

E59A- 

IDA 

$A0 


E59C- 

FHA 



E59D- 

JSR 

$DE60 

2. String aus Prograimitext holen (A0,A1 Desjcr.-Zeiger 

E5A0- 

JSR 

$DD6C 

prüfe ob String 

E5A3- 

PLA 


Deskriptorzeiger für 1. String 

E5A4- 

STA 

$AB 

nach AB,AC bringen 
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E5A6- 

PLA 



E5A7- 

STA 

$AC 


E5A9- 

LDY 

#$00 


E5AB- 

LDA 

($AB),Y 

Länge des 1. Strings 

E5AD- 

CLC 



E5ÄE- 

ADC 

{$A0),Y 

plus Länge des 2. Strings 

E5B0- 

BGC 

$E5B7 

ok, nicht zu lang 

E5B2- 

LEK 

#$B0 

Kode für STRIM3 TOO IDNG ERROR 

E5B4- 

JMP 

$D412 

Fehlernveldung bearbeiten 

E5B7- 

JSR 

$E3D5 

Platz für verketteten String schaffen 

E5BA- 

JSR 

$E5D4 

1. Teilstring an neuen Platz kopieren 

E5BD- 

LDA 

$8C 

Zeiger auf Deskriptor für 2. String im D.-Stack 

E5BF- 

LDY 

$8D 


E5C1- 

JSR 

$E604 

Deskriptor vom Deskriptoren-Stack entfernen 

E5C4- 

JSR 

$E5E6 

2. Teilstring an neuen Platz hinter ersten kopieren 

E5C7- 

lEIA 

$AB 

Zeiger auf Deskriptor für 1. String im D.-Stack 

E5C9- 

UDY 

Sac 


E5CB- 

JSR 

$E604 

Deskriptor vom Deskriptoren-Stack entfernen 

E5CE- 

JSR 

$E42A 

Deskriptor für verketteten String auf Deskr.-Stack 

E5D1- 

JMP 

$DD95 

zurück zur Routine "Ausdruck auswerten" 




String kopieren 

I: AB,AC Zeiger auf Deskriptor; 71,72 Zieladresse 
0: 71,72 zeigt hinter neuen String 


E5D4- 

lEY 

#$00 


E5D6- 

LDA 

{$AB),Y 

Stringlänge retten 

E5D8- 

PHA 



E5D9- 

INY 



ESDA- 

LDA 

($AB),Y 

Stringadresse 

E5DC- 

TAX 


nach X,Y bringen 

E5DD- 

INY 



E5DE- 

LDA 

($AB),Y 


E5E0- 

TAY 



E5E1- 

PLA 


Länge holen 

E5E2- 

STX 

$5E 

Adresse auf Zeiger übertragen 

E5E4- 

STY 

$5F 


E5E6- 

TAY 


Y als Schleifenzähler 

E5E7- 

BBQ 

$E5F3 

Stringlänge null 

E5E9- 

PHA 


sonst Länge retten 

E5EA- 

DEY 


Schleife kopiert Zeichen für Zeichen 

E5EB- 

LDA 

($5E),Y 


E5ED- 

STA 

($71),Y 


E5EP- 

TYA 


Z-Flag setzen 

E5F0- 

BNE 

$E5EA 

weiter in Schleife 

E5F2- 

PLA 


Länge wieder holen 

E5F3- 

CLC 



E5F4- 

ADC 

$71 

und zu Anfangsadresse addieren 

E5F6- 

STA 

$71 

ergibt Zeiger hinter neuen String 

E5F8- 

BCC 

$E5PC 


E5FA- 

INC 

$72 


E5PC- 

RTS 




unnütze Strings entfernen 
0: Deskriptor in a,5E,5F bzw. in A,X,Y 


E5FD- 

JSR 

$DD6C 

prüfe, ob letzter Ausdruck ein String war 

E600- 

LDA 

$A0 

Zeiger auf Deskriptor im Deskriptoren-Stack 

E602- 

LDY 

$Al 


E604- 

STA 

$5E 

auf Hilfszeiger übertragen 

E606- 

STY 

$5P 
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E608- 

JSR 

$E635 

Deskriptor von D.-Stack entfernen, falls obenauf 

E60B- 

mp 


Z-Flag gesetzt, falls Deskriptor entfernt, —> retten 

E60C- 

LDY 

#$00 


E60E- 

im 

($5E),Y 

Stringdeskriptor nach A,X,Y 

E610- 

PSA 



E611- 

INY 



E612- 

im 

($5E),Y 


E614- 

TAX 



E615- 

INY 



E616- 

LDA 

($5E),Y 


E618- 

TAY 



E619- 

PIA 


Stringlänge 

E61A- 

PLP 


gerettetes Z-Flag holen 

E61B- 

BNE 

$E630 

Deskriptor wurde nicht entfernt, weiter 

E61D- 

CPY 

$70 

Stringadresse = Anfang des Stringbereichs? 

E61F- 

BNE 

$E630 

nein 

E621- 

CPX 

$6F 

LBYte vergleichen 

E623- 

BNE 

$E630 

nein, nicht der unterste String —> nicht löschen 

E625- 

PHA 


sonst Länge retten 

E626- 

CDC 



E627- 

ADC 

$6F 

Anfang des Stringbereichs um Stringlänge erhöhen 

E629- 

STA 

$6F 


E62B- 

BOC 

$E62F 


E62D- 

INC 

$70 


E62F- 

PLA 


A,X,Y = Deskriptor 

E630- 

STX 

$5E 

Adresse nach 5E,5F kopieren 

E632- 

STY 

$5F 

E634- 

RTS 




Deskriptor vom D.-Stack entfernai, falls obenauf 

I: A,Y zeigt auf Stringdeskriptor 

0: Z-Flag =1, falls Deskriptor aitfernt wurde 


E635- 

CPY 

$54 

Adresse des obersten Deskriptors auf Stack, HByte? 

E637- 

BNE 

$E645 

stijrimt niciit überein, fertig 

E639- 

CMP 

$53 

LByte prüfen 

E63B- 

BNE 

$E645 

stimmt nicht ifiserein 

E63D- 

STA 

$52 

sonst Zeiger für nächste Eintragung setzen 

E63F- 

SBC 

#$03 

minus 3 

E641- 

STA 

$53 

ergibt Zeiger auf neuen obersten Deskriptor im Stack 

E643- 

LDY 

#$00 

Z-Flag setzen 

E645- 

KIS 



Applesoft-Funktion CHR$ 


E646- 

JSR 

$E6FB 

Ascii-Kcde in FACl als Integer nach X 

E649- 

TXA 


retten 

E64A- 

HiA 



E64B- 

im 

#$01 

als Stringlänge 

E64D- 

JSR 

$E3DD 

Platz im Stringbereich schaffen, Deskr.-> 9D,9E,9F 

E650- 

PLA 


Ascii-Kode 

E651- 

IDY 

#$00 


E653- 

STA 

($9E),Y 

eintragen 

E655- 

PLA 


Rücksprungadresse entfernen 

E656- 

PLA 



E657- 

JMP 

$E42A 

Deskriptor auf Deskriptoren-Stack 


Applesoft-Funktion LEFT$ 

E65A- JSR $E6B9 DeskriptorZeiger nach 8C,8D; Paraneter nach A und X 

E65D- CMP ($8C),Y Paraneter mit Stringlänge vergleichen 
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Accu nullsetzen 


E65F- TiTA 
Einsprung von RI(arr$ 


E660- 

BCJC 

$E666 

Anfang des Teilstrings < Stringlänge, ok 

E662- 

IDA 

(S8C),Y 

sonst Stringlänge 

E664- 

TAX 


= Länge des Teilstrings 

E665- 

TYA 



E666- 

E«A 


Position des Teilstrings im Originalstring auf Stack 

E667- 

TXA 


Länge des Teilstrings 

Einsprung von MID$ 


E668- 



Länge des Teilstrings auf Stack 

E669- 

JSR 

$E3I» 

Platz für neuen String im Stringbereich 

E66C- 

LDA 

$8C 

Zeiger auf Stringdeskriptor 

E66E- 

liDY 

$8D 


E670- 

JSR 

$E604 

Originalstring entfernen, falls möglich 

E673- 

PIA 


Länge des Teilstrings 

E674- 

TAY 


merken 

E675- 

PIA 


Position des Teilstrings im Original (0 bei LEFT$) 

E676- 

CÜC 



E677- 

ADC 

SSE 

Adresse des Originalstrings plus Position 

E679- 

STA 

SSE 

ergibt Adresse des Teilstrings 

E67B- 

BCC 

SE67F 


E67D- 

INC 

SSF 


E67F- 

TYA 


gemerkte Länge des Teilstrings 

E680- 

JSR 

SESE6 

Teilstring in Stringbereich übertragen 

E683- 

JMP 

SE42A 

Deskriptor auf Deskriptoren-Stack 

Ajplesoft-Funktion Rican‘$ 

E686- 

JSR 

SE6B9 

Deskriptorzeiger nach 8 c, 8D; Parameter nach A und X 

E689- 

CLC 



E68A- 

SBC 

(S8C),Y 

Parameter minus (Stringlänge +1), da C=0 

E68C- 

BOR 

#Sfp 

negieren ergibt Länge des Teilstrings 

E68E- 

JMP 

SE660 

weiter bei LEFT$-Routine 

Äpplesoft-Funktion MID$ 


E691- 

LDA 

#$EF 

Default-Vfert für Länge des Teilstrings 

E693- 

STA 

SAl 

merken 

E695- 

JSR 

$00B7 

hole letztes Zeichen 

E698- 

CMP 

#S29 

Ascii für ")" ? 

E69A- 

HEQ 

SE6A2 

ja, kein Längen-Parameter angegeben 

E69C- 

JSR 

Sdebe 

sonst muß Kaiitia folgen 

E69F- 

JSR 

SE6F8 

Längen-Parameter aus Programmtext holen (nach Al) 

E6A2- 

JSR 

SE6B9 

Deskriptorzeiger nach 8C,8D; Paraineter nach A und X 

E6A5- 

DEX 


Position des Teilstrings 

E6A6- 

TXA 



E6A7- 

HIA 


retten 

E6A8- 

CLC 



E6A9- 

LDX 

#soo 


E6AB- 

SBC 

(S8C),Y 

minus (Originalstring-Länge +1) 

E6AD- 

BCS 

SE667 

Pos. außerhalb Originalstring —> X=0 (kein Teilstring) 

E6AF- 

EDR 

#SFF 

ergibt maximale Länge des Teilstrings 

E6B1- 

CMP 

SAl 

diese mit Längen-Parameter vergleichen 

E6B3- 

BCC 

SE668 

Parameter zu groß, veiter mit maximaler Länge 

E6B5- 

LDA 

SAl 

sonst Längen-Paraiteter holen 

E6B7- 

BCS 

SE668 

damit weiter bei LEPr$-Routine 


]iEFT$/MlD$/RIGHT$-ParaiiEter van Stack holen, vgl DFlA 
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E6B9- 

JSR 

$DEB8 

prüfe ob ")“ folgt 

E6BC- 

PIA 


Rücksprungadresse nach Y,91 retten 

E6BD- 

TAY 



E6BE- 

PIA 



E6BF- 

STA 

$91 


E6C1- 

PIA 


Rücksprungadresse nach $DF4C aitfemen 

E6C2- 

PIA 



E6C3- 

PIA 


Positions-Parameter vom Stack 

E6C4- 

TAX 


nach X 

E6C5- 

PIA 


Zeiger auf Stringdeskriptor vom Stack 

E6C6- 

STA 

</y 

00 

O 

nach 8C,8D 

E6C8- 

PLA 



E6C9- 

STA 

$8D 


E6CB- 

LDA 

$91 

gemerkte Rücksprungadresse wieder auf Stack 

E6CD- 

PHA 



E6CE- 

Tiffi 



E6CF- 

PHA 



E6D0- 

LDY 

#$00 


E6D2- 

TXA 


A=X (Positions-Parameter) 

E6D3- 

BEQ 

$E6F2 

=0 —> ILLEGAL QUAWTITY ERROR 

E6D5- 

RTS 



Arplesoft-Funktion LEN 


E6D6- 

JSR 

$E6DC 

Deskr. von Deskr.-Stack entfernen, Stringlänge nach 

E6D9- 

JMP 

$E301 

Integer in Y nach FACl bringen 

Hilfsroutine 

für LEN, ASC, VAL 

E6DC- 

JSR 

$E5FD 

unnützen Deskr. von Deskr.-Stack entfernen, Länge -: 

ESDE- 

LDX 

#$00 


E6E1- 

STX 

$11 

String-Flag löschen 

E6E3- 

TKf 


Stringlänge nach Y 

E6E4- 

RTS 



Ttolesoft-Punktion ASC 


E6E5- 

JSR 

$E6DC 

Deskr. van Deskr.-Stack entfernen, Deskr. —> A,5E,! 

E6E8- 

HBQ 

$E6F2 

Länge = 0, —> ILLBSAL QUANTITY ERROR 

E6EA- 

JDY 

#$00 

hole erstes Stringzeichen (in Ascii) 

E6EC- 

LDA 

($5E),Y 


E6EE- 

w 


Ascii-Kode nach Y 

E6EF- 

JMP 

$E301 

Integer in Y nach FACl 

E6F2- 

JMP 

$E199 

ILLBSAL QUANTITY ERRDR ausgeben 


1-Byte-Integer aus prograimtext holen 
l! CHRGEir zeigt auf numerischen Ausdruck 


/ 

0: Integer in X bzw. 

A0,A1 

6)0-+/<d f 

E6F5- 

JSR 

$00B1 

neues Zeichen holen 

E6F8- 

JSR 

$DD67 

nunerischen Ausdruck auswerten (nach FACl) 


E6FB- 

JSR 

$E108 

FACl in Integer umwandeln 


E6EE- 

LDX 

$A0 

Integerzahl, HByte 


E700- 

BNE 

$E6F2 

Integer > 255, —> ILLBSAL QUANTITY ERROR 


E702- 

LDX 

$A1 

LByte nach X 


E704- 

JMP 

$00B7 

kehre zurück mit neuem Zeichen im Accu 


Deskr. van Deskr.-Stack entfernen, Deskr. —> A,5E,5F 


i^lesoft-Funktion '®L 
E707- JSR $E6DC 


72 









E70A- 

BNE 

$E70F 

Stringlänge nicht null 

E70C- 

JMP 

$E84E 

sonst FACl nullsetzen, fertig 

E70F- 

LEK 

Sb8 

CHRGET-Zeiger 

E711- 

IDY 

$B9 


E713- 

STX 

$AD 

in AD,AE retten 

E715- 

STY 

$AE 


E717- 

LDX 

$5E 

Stringadresse 

E719- 

STX 

$B8 

nach CHRGET-Zeiger übertragen 

E71B- 

CLC 



E71C- 

ADC 

$5E 

Stringlänge plus Stringadresse __ 

E71E- 

STA 

$60 

ergibt Zeiger hinter String 

E720- 

LDX 

$5F 

dasselbe mit KBytes 

E722- 

STX 

$B9 


E724- 

BCC 

$E727 


E726- 

INX 



E727- 

STX 

$61 


E729- 

LDY 

#$00 


E72B- 

um 

($60),y 

erstes Zeichen hinter String 

E72D- 

FHA 


auf Stack retten 

E72E- 

LDA 

#$00 


E730- 

STA 

($60),Y 

durch null ersetzen (als Endtnarke) 

E732- 

JSR 

$00B7 

hole erstes Stringzeichen 

E735- 

JSR 

$BC4A 

String in FP-Konstante (in EACl) umwandeln 

E738- 

PIA 


erstes Zeichen hinter String 

E739- 

LDY 

#$00 

E73B- 

STA 

($60),y 

wiederherstellen 

E73D- 

LDX 

$AD 

genverkten CHRGET-Zeiger 

E73F- 

LDY 

$AE 


E741- 

STX 

$B8 

wiederherstellen 

E743- 

STY 

$B9 


E745- 

KTS 




hole 2-Byte-Integer und 1-Byte Integer aus Progr.Text 
0: Integers in 50,51 (2-Byte) und A0,al bzw X (1-Byte) 


E746- 

JSR 

$ro67 

nunerischen Ausdruck auswerten 

E749- 

JSR 

$E752 

FACl nach Integer in 50,51 

E74C- 

JSR 

$DEBE 

prüfe, ob Komma folgt 

E74F- 

JMP 

$E6F8 

1-Byte-Integer nach A0,Al bzw. X bringen 

FACl in 

Integer umwandeln (in 50,51) 

E752- 

LDA 

$9D 

Exponent von FACl 

E754- 

CMP 

#$91 

zu groß? 

E756- 

BCS 

$E6F2 

ja. Betrag von FACl > 65535 —> ILLB3AL QUANTITY ERROR 

E758- 

JSR 

$EBF2 

FACl in Integerformat bringen (Integer in A0,A1) 

E75B- 

LDA 

$A0 

Integer 

E75D- 

LDY 

$A1 


E75F- 

STY 

$50 

in Integer-Register übertragen 

E761- 

STA 

$51 


E763- 

RTS 



Applesoft-Funktion PEEK 


E764- 

LDA 

$50 

Integer-Register auf Stack retten 

E766- 

FHA 



E767- 

LDA 

$51 


E769- 

PHA 



E76A- 

JSR 

$E752 

Adresse (in EACl) in Integer umwandeln (in 50,51) 

E76D- 

IDY 

#$00 


E76F- 

LDA 

($50),Y 

Inhalt der Speicherzelle holen 
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E771- 

TAY 


nach Y retten 

E772- 

PIA 


Integer-Register wiederherstellen 

E773- 

STA 

$51 


E775- 

PIA 



E776- 

STä 

$50 


E778- 

3MP 

$E301 

Integer in Y nach FACl bringen 

Afplesoft-Poutine POKE 


E77B- 

JSR 

$E746 

POBCE-Adresse nach 50,51; neuen Vfert nach X bringen 

E77E- 

TXA 


neuen Inhalt der Speicherzelle 

E77F- 

im 

#$00 


E781- 

STA 

($50),Y 

eintragen 

E783- 

RTS 



Applesoft-Routine WAIT 


E784- 

JSR 

$E746 

Adresse nach 50,51; Prüf-Bitniaske nach X bringen 

E787- 

STX 

$85 

Maske irerken 

E789- 

LDX 

#$00 

Default-Vfert für Sollwert-Maske 

E78B- 

JSR 

$00B7 

hole Zeichen aus Programmtext 

E78E- 

BEQ 

$E793 

Trennzeichen, keine Sollwert-Maske angegeben 

E790- 

J® 

$E74C 

sonst Sollwert-Maske holen 

E793- 

STX 

$86 

Sollwert-Maske merken 

E795- 

LDY 

#$00 

Beginn der Warteschleife 

E797- 

IDA 

{$50),Y 

Inhalt der WAIT-Adresse holen 

E799- 

BDR 

$86 

Sollwert-Maske invertiert Bits, die 0 sein sollen 

E79B- 

ÄND 

$85 

Prüf-Bitmaske holt relevante Bits heraus 

E79D- 

BEQ 

$E797 

kein relevantes Bit auf Sollwert, warten 

E79F- 

RTS 




ARITHMETIK-RDUriNEM 


FACl = 

FACl + 0.5 ^ 


E7A0- 

IDA 

#$64 

Zeiger auf FP-Kbnstante 0.5 

E7A2- 

IDY 

#$EE 


E7A4- 

OMP 

$E7HE 

FACl = FACl + (A,Y) 

FACl = 

(A,Y) 

- ERCl^ 


E7A7- 

JSR 

$E9E3 

(A,Y) nach FAC2 übertragen 0 

E7AA- 

IDA 

$A2 e 

Vorzeichen von FACl hoii^ 1 

E7AC- 

EDR 

#$FF 

invertieren 

E7AE- 

STA 

$A2 

damit FACl mit umgekehrtem Vorzeichen 

E7B0- 

BDR 

$AA 

Vorzeichen FACl mit Vorzeichen FAC2 verknüpfen 

E7B2- 

STA 

$AB 

als Kombi-Vorzeichen merken 

E7B4- 

IDA 

$9D 

Exponent von FACl holen 

E7B6- 

JMP 

$E7C1 

FACl = (A,Y) + (-FACl) 

Hilfsroutine 

für Additionsroutine 

E7B9- 

JSR 

$E8F0 

Stellenwertigkeiten von FACl, FAC2 angleichen 

E7BC- 

BCC 

$E7FA 

zurück (immer) 

FACl = 

(A,Y) 

+ FACl 


E7HE- 

J® 

$E9E3 

(A,Y) nach FAC2 übertragen 

E7C1- 

ENE 

$E7C6 

FACl ungleich null, Addition durchführen 

E7C3- 

JMP 

$EB53 

sonst FACl gleich FAC2 setzen, fertig 


FäCI = FACl + EaC2 
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c A -t rcyc 2^ 


E7C6- 

EDX 

$AC 

Rundungsstelle von FACl 

E7C8- 

STX 

$92 

Kerken 

E7Ca- 

LDX 

#$A5 

Offsetzeiger auf FAC2 (für Mantissenverschiebung) 

E70C- 

im 

$A5 

Exponent von FAC2 

E7CE- 

E7CF~ 

TAY 

BBQ 

$E79F|ßTS| 

in Y Kerken 

FAC2 = 0, damit fertig 

E7D1- 

SBC 


E7D2- 

SBC 

$9D 

minus Exponent von FACl 

E7D4- 

BBQ 

$E7FA 

beide gleich, keine Mantissenangleichung notwendig 

E7D6- 

BCC 

$E7EA 

Exp 1 > Exp 2 

E7D8- 

STY 

$9D 

Exp 2 größer, als Exponent des Ergebnisses eintragen 

E7DA- 

EDY 

$AA 

Vorzeichen von EAC2 

E7DC- 

STY 

$A2 

als Vorzeichen des Ergebnisses, da Betrag FACl größer 

E7DE- 

EDR 

#$EF 

Differenz der Exponenten negieren 

E7E0- 

ADC 

#$00 

damit Differenz sicher negativ 

E7E2- 

IDY 

#$00 


E7E4- 

STY 

$92 

gemerkte Rundungsstelle von FACl löschen 

E7E6- 

EDX 

#$9D 

Offsetzeiger auf FACl (für Mantissenverschiebung) 

E7E8- 

HNE 

$E7EE 

irtiter springen ‘ 

E7EA- 

LDY 

#$00 


E7B2- 

STY 

$AC 

Rundungsstelle von FACl löschen 

Mantissen angleichen 


E7EE- 

CMP 

#$F9 

Exponentendifferenz kleiner als -7 ? 

E7F0- 

BMI 

$E7B9 

ja, kleinere Zahl nach rechts schieben bis Mantisse ok 

E7F2- 

TAY 


sonst kleinere Zahl Bitweise verschieben bis ok 

E7F3- 

EDA 

$AC 

Rundungsstelle 

E7F5- 

LSR 

$01 ,x. 

höchstes Mantissenbyte rechtsverschieben 

iOyfKmi- 

JSR 

$E907£"1'-F 

weiter tei Verschieberoutine ■, 


Vörzeichenanalyse 


Si^IE7FA- 

BIT 

$AB 

Bit7 = 0 falls die Sunmanden gleiches Vorzeichen haben 

E7FC- 

BPL 

$E855 

Vorzeichen gleich —> Mantissen addieren 

E7FE- 

LDY 

#$9D 9 K 

Offsetzeiger auf FACl 

E800- 

CPX 

#$A5 

war Exp2 kleiner als Expl? 

E802- 

BBQ 

$E806 

ja 

E804- 

LDY 

#$A5 


E806- 

SBC 


damit Y Zeiger für Zahl mit größerem Exp, X für andere 

Mantissen subtrahieren, 

Differenz nach FACl 

E807- 

BOR 

#$FF 

Rundungastellen subtrahieren 

E809- 

ADC 

$92 


E80B- 

STA 

$AC 


E80D- 

IDA 

$0004,Y 

Ml (höchstwertiges Mantissenbyte) 

E810- 

SBC 

$04 ,X 


E812- 

STA 

$Al 


E814- 

EDA 

$0003,Y 

M2 

E817- 

SBC 

$03 ,X 


E819- 

STA 

$A0 


E81B- 

IDA 

$0002,Y 

M3 

E81E- 

SBC 

$02 ,X 


E820- 

STA 

$9F 


E822- 

IDA 

$0001,Y 

M4 subtrahieren 

E825- 

SBC 

$01 ,X 


E827- 

STA 

$9E 


E829- 

BCS 

SE82E 

Mantissendifferenz positiv, ok 

E82B- 

JSR 

$E89E 

FACl kotplementieren, da negativ 


FACl nornderen (Mantisse linksbündig niachen) 

E82E- LDY #$00 

E830- TYA Accu als Zähler (für Exponentenkorrektur benötigt) 
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E831- 

diC 


E832- 

U3X 

$9E ' 

E834- 

EHE 

$E880 

E836- 

EDX 

$9F 

E838- 

SEX 

$9E, 

E83A- 

LDX 

$A0 

E83C- 

SEX 

$9F 

E83E- 

ECK 

$A1 

E840- 

SEX 

$A0 

E842- 

LDX 

$AC 

E844- 

SEX 

$A1 

E846- 

SEX 

$AC 

E848- 

ADC 

#$08 

E84A- 

CMP 

#$20 

E84C- 

a® 

$E832 

E84E- 

IDA 

#$00 

FACl nullsetzen 

E850- 

SEA 

$9D 

E852- 

SEA 

$A2 

E854- 

BES 



höchstes Mantissenbyte 

nicht leer, —> zur Verschiebung um einzelne Bits 
sonst um ganzes Byte verschieben: 

M2 —> Ml 

M3 —> M2 

M4 —> M3 

Rundungsstelle —> M4 
null —> Rundungsstelle 
Zähler um 8 erhcä^en 
bereits um 4 Bytes verschoben? 
nein, weiter 

ja, also ist Mantisse null 


Exponent und Vorzeichen nullsetzen 



Mantissen addieren, Suitme nach FACl 


E855- 

ADC 

$92 

E857- 

SEA 

$AC 

E859- 

IDA 

$Al « 

E85B- 

ADC 

$A9 « 

E85D- 

SEA 

$A1 0 

E85F- 

IDA 

$A0 » 

E861- 

ADC 

$A8 ’ 

E863- 

SEA 

$A0 e 

E865- 

IDA 

$9F 9 

E867- 

ADC 

$A7> 

E869- 

SEA 

$9F ' 

E86B- 

IDA 

$9E « 

E86D- 

ADC 

$ä6 • 

E86F- 

SEA 

$9E • 

E871- 

JMP 

$E88D 


Rundungsstelle addieren 

(höchstwertiges Mantissenbyte) addieren 


Ml 


M2 


M3 


M4 


Überlaufstelle einfügen, falls nötig 


FACl normieren (linksbündig machen, Bit-Weise) 


E874- 

ADC 

#$01 

E876- 

ASL 

$AC 

E878- 

ROL 

$A1 

E87A- 

ROJ, 

$A0 

E87C- 

BDL 

$9F 

E87E- 

ROL 

$9E 

E880- 

BPL 

$E874 

E882- 

SEC 


E883- 

SBC 

$9D 

E885- 

BCS 

$E84E 

E887- 

EDR 

#$FF 

E889- 

ADC 

#$01 

E88B- 

SEA 

$9D 

E88D- 

BCC 

$E89D- 

E88F- 

INC 

$9D 

E891- 

BE)2 

$E8D5 

E893- 

EDR 

$9E « 

E895- 

E£» 

$9F « 

E897- 

BDR 

$A'0 « 


Zähler erhcSien 

Rundungsstelle verschieben 

M4 verschieben 

M3 

M2 

Ml 

höchstwertigstes Bit =0, weiterschieben 

Accu = Anzahl der Bits, um die linksverschoben wurde 

minus Exponent 

Exponent zu klein, FACl nullsetzen 
Vorzeichen des Exponenten korrigieren 

und eintragen (C sicher null) 
kein Überlauf, fertig 
Exponent erhcfen 

Exponentenüberlauf, —> OVERFICW ERROR 

Mantisse 1 Bit rechtsverschieben, C=1 ins höchste Bit 
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E899- 

ROR 

$A1«’ 

E89B- 

ROR 

$äC 

E89D- 

RTS 


FACl komplementieren 


E89E- 

LDA 

$A2 

Vorzeichen urodrehen 

E8A0- 

BDR 

#$FF 


E8A2- 

STA 

$A2 


E8A4- 

LDA 

$9E 

Mantisse invertieren 

E8A6- 

BOR 

#$IT' 


E8A8- 

STA 

$9E 


E8AA- 

IDA 

$9F 


E8AC- 

BOR 

#$FF 


E8AE- 

STA 

$9F 


E8B0- 

im 

$A0 


E8B2- 

BOR 

#$EF 


E8B4- 

STA 

$A0 


E8B6- 

LDA 

$A1 


E8B8- 

EDR 

#$FF 


E8aA- 

STA 

$Al 


E8BC- 

rm 

$AC 


EBBE- 

BOR 

#$FF 


E8C0- 

STA 

$AC 


FACl um 

1 an 

geringwertigster Bitstelle erhöhen 

E8C2- 

INC 

$AC' 

Rundungsstelle um 1 Bit erhöhen 

E8C4- 

BNE 

$E8D4 

kein Oberlauf ins nächste Byte 

E8C6- 

INC 

$Al 

sonst M4 erhöhen usw. 

E8C8- 

BNE 

$E8D4 


E8CA- 

INC 

$A0 


ESOC- 

BNE 

$E8D4 


E8CE-- 

INC 

$9F 


E8D0- 

BNE 

$E8D4 


E8D2- 

in: 

$9E 


E8D4- 

RTS 



E8D5- 

IDX 

#$45 

Kode für OVERFIDW ERROR 

E8D7- 

OMP 

$D412 • 

Fehlermeldung bearbeiten 


Hilfsregister rechtsverschieben 
ESDft- LDX #$61 

Mantisse rechtsverschieben 

I: Accu = negative Anzahl zu verschiebender Bits 
X = Zeiger auf Mantisse (in Zeropage) 


E8DC- 

LDY 

$04 ,X 

Mantisse um ganze Bytes verschieben: 

E8DE- 

STY 

$AC 

M4 —> Rundungsstelle 

E8E0- 

LDY 

$03 ,X 


E8E2- 

STY 

$04 ,X 

M3 —> M4 

E8E4- 

LDY 

$02 ,X 


E8E6- 

STY 

$03 ,X 

M2 —> M3 

E8E8- 

LDY 

$01 ,X 


E8EA- 

STY 

$02 ,X 

Ml —> M2 

E8B0- 

LDY 

$A4 

=00 falls positiv, =255 falls negativ 

E8EE- 

STY 

$01 ,X 

—> Ml 


Zähler erhöhen 

noch kleiner null, also um ^nzes Byte verschieben 


allgemeiner Einsprung 
E8F0- ADC #$08 

E8F2- BMI $E8DC 
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E8F4- 

BBQ 

$E8DC 


gleich null, um ganzes Byte verschieben 

E8F6- 

SBC 

#$08 


sonst Zähler wieder auf alten Wert bringen 

E8F8- 

w 



von nun ab zählt Y die Verschiebungen um einzelne Bits 

E8F9- 

LDA 

$SC 


Rundungsstelle 

E8FB- 

BCS 

$E911 


Zähler ist null, keine weiteren Verschiebungen 

Verschiebung um einzelne Bits 

E8FD- 

äsl 

$01 ,X 


höchstes Bit nach C 

E8FF- 

Bcx: 

$E903 


=0, bei Rechtsverschiebung vorne 0-Bit anfügen 

E901- 

INC 

$01 ,X 


sonst Bit 1 setzen 

E903- 

BOR 

$01 ,X 


ASL rückgängig machen, vorne anzufigendes Bit in C 

E905- 

BOR 

$01 ,X 


Ml rechtsverschieben, C nach Bit 7 

E907- 

BOR 

$02 ,X 


M2 verschieben 

E909- 

RDR 

$03 ,X 


M3 

E90B- 

ROR 

$04,X 


M4 

E90D- 

RDR 



Rundungsstelle verschieben 

E90E- 

INY 



Zähler erhöhen 

E90F- 

ms 

$E8FD 


weiter schieben 

E911- 

CLC 




E912- 

RTS 




E913- 

81 00 

00 00 

00 

FP-Konstante 1 & 

Reihenkoeffizienten 

für 

IDG-Routine 

E918- 

03 



Grad des Polynans S 

E919- 

7F 5E 56 CB 

79 

0.434255942 

E91E- 

80 13 

9B OB 

64 

0.576584541 

E923- 

80 76 

38 93 

16 

0.961800759 

E928- 

82 38 ÄA 3B 

20 

2.88539007 

E92D- 

80 35 

04 F3 

34 

FP-Koistante SQR(0.5) © 

E932- 

81 35 

04 F3 

34 

FP-Konstante SQR(2) § 

E937- 

80 80 

00 00 

00 

FP-Kcxistante - 0.5 © 

E93C- 

80 31 

72 17 

F8 

FP-Konstante ln 2 *' 


J^lesoft-Funktion lOG 

nach der Formel ljn(x * 2*k) = ln(x) + k * ln(2) 


E941- 

JSR 

$EB82 ■ 

Vorzeichen von EACl testen 

E944- 

BEÖ 

$E948 

FACl = 0 —> ILLEGAL QUANIITY ERROR 

E946- 

BPL 

$E94B 

FACl >0 ok, natürlichen Logarithmus bestimmen 

E948- 

JMP 

$E199 

sonst ILLEGAL QUANTITY ERROR 

E94B- 

LDA 

$9D 

Exponent des Arguments 

E94D- 

SBC 

#$7P 

minus 128 ergibt wahren Exponenten 

E94F- 

HIÄ 


retten 

E950- 

LDft 

#$80 

als neuer Ei^xjnent, damit 0.5 <= FACl < 1 

E952- 

SIA 

$9D 

in Exponentenbyte eintragen 

E954- 

LDR 

#$2D 

Zeiger auf FP-Kcnstante SQR(0.5) 

E956- 

IDY 

#$E9 


E958- 

JSR 

$E7HE • 

FACl = EACl + SQR(0.5) 

E95B- 

EDA 

#$32 

Zeiger auf FP-K(Xistante SQR(2) 

E95D- 

LDY 

#$E9 


E95F- 

JSR 

$EA66 ■ 

FACl = SQR(2) / FACl 

E962- 

LDA 

#$13 

Zeiger auf FP-Konstante 1 

E964- 

LDY 

#$E9 


E966- 

JSR 

$E7A7 

FACl = 1 - EACl, damit x' = (x-k) / (x+k); k=SQR(0.5) 

E969- 

LDA 

#$18 

Zeiger auf Polynom-Koeffizienten 
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E96B- 

LDY 

#$E9 


E96D- 

JSR 

$EF5C ' 

Polynan (x') auswerten, ergibt ln(x) / ln(2) + 0.5 

E970- 

IDA 

#$37 

Zeiger auf FP-Kcxistante -0.5 

E972- 

LDY 

#$E9 


E974- 

JSR 

$E7BE ' 

dies zu FACI addieren ergibt ln(x) / ln(2) 

E977- 

PIA 


Exponent zur Basis 2 ( d.h. k ) holen 

E978- 

JSR 

$ECD5 ' 

zu gerundetem FACI addieren ergibt ln(x) / ln(2) + k 

E97B- 

LDA 

#$3C 

Zeiger auf FP-Konstante ln(2) 

E97D- 

IDY 

#$E9 

(nach Multiplikation ergibt sich ln(x) + k * ln(2) ) 

FACI = 

FACI 

* (A,Y) - 


E97F- 

JSR 

$E9E3 

(Ä,Y) nach FAC2 bringen 

E982- 

BNE 

$E987 

FACI ungleich 0, Multiplikation ausführen 

E984- 

JMP 

$E9E2 

FACI = 0, also auch Produkt = 0, fertig 

FACI = 

FACI 

* FAC2 ^ 


E987- 

JSR 

$EA0E 

Exponenten von FACI und FAC2 addieren 

E98A- 

IDA 

#$00 


E98C- 

STA 

$62 

Hilfsregister löschen 

E98E- 

STA 

$63 


E990- 

STA 

$64 


E992- 

STA 

$65 


E994- 

LDA 

$AC 

FACI Byte für Byte mit FAC2 multiplizieren, Ergebnis 

E996- 

JSR 

$E9B0 • 

im Hilfsregister aufsuirmieren 

E999- 

LDA 

$Al 

M4 

E99B- 

JSR 

$E9B0 

mit FAC2 multiplizieren etc. 

E99E- 

LDA 

$ä0 

M3 

E9A0- 

JSR 

$E9B0 


E9A3- 

LDA 

$9F 

M2 

E9A5- 

JSR 

$E9B0 


E9A8- 

IXIA 

$9E 

Ml 

E9AA- 

JSR 

$E9B5 ■ 


E9AD- 

JMP 

$EAE6 

Hilfsregister nach FACI bringen und linksbündig machen 

Accu * 

FAC2 

zu Hilfsregister addieren und verschieben 

E9B0- 

BNE 

$E9B5 

Accu ungleich 0, —> multiplizieren 

E9B2- 

JMP 

$E8DA- 

sonst Hilfsregister um 1 Byte nach rechts verschieben 

E9B5- 

I£R 


Bit 0 nach C bringen 

E9B6- 

QRA 

#$80 

Bit 7 setzen (als Abbruchmarke) 

E9B8- 

TAY 


nerken 

E9B9- 

BCC 

$E9D4 

Bit = 0, nur schieben 

E9BB- 

CLC 


Bit = 1, addieren und dann schieben 

E9BC- 

LDA 

$65 

FAC2 zu Hilfsregister addieren 

E9HE- 

ADC 

$A9 


E9C0- 

STA 

$65 

M4 

E9C2- 

LDA 

$64 


E9C4- 

ADC 

$A8 


E9C6- 

STA 

$64 

M3 

E9C8- 

LDA 

$63 


E9CA- 

ADC 

$A7 


E90C- 

STA 

$63 

M2 

E9CE- 

LDA 

$62 


E9D0- 

ADC 

$A6 


E9D2- 

STA 

$62 

Ml 

E9D4- 

ROR 

$62 

Hilfsregister van 1 Bit nach rechts schieben 

E9D6- 

ROR 

$63 


E9D8- 

ROR 

$64 


E9nA- 

ROR 

$65 


E9DC- 

ROR 

$AC 

letztes Bit in Rundungsstelle schieben 
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E9DE- 

Tik 


Multiplikator 

EgEF- 

rsR 


nächstes Bit nach C bringen 

E9E0- 

mE 

$E9B8 

Endmarke noch nicht erreicht, neues Bit bewerten 

E9E2- 

RTS 


fertig 

(A,Y) 

nach FAC2 bringen 


E9E3- 

STA 

$5E 

Zeiger übernehmen 

E9E5- 

STY 

$5F 


E9E7- 

LDY 

#$04 

Index auf 4. Mantissenbyte 

E9E9- 

LDA 

($5E),Y 

M4 

E9EB- 

STA 

$A9 


E9ED- 

DBY 



E9EE- 

UÄ 

($5E),Y 

M3 

E9F0- 

STA 

$A8 


E9F2- 

DEY 



E9F3- 

LDA 

($5E),Y 

M2 

E9F5- 

STA 

$A7 


E9F7- 

DEY 



E9F8- 

LDA 

($5E),Y 

Ml enthält Vorzeichen in Bit 7 

E9FÄ- 

STA 

$AA 

als Vorzeichen von FAC2 eintragen 

E9PC- 

EDR 

$A2 

mit Vorzeichen von FACl verknüpfen 

E9FE- 

STA 

$AB 

Kcrobi-Vorzeichen eintragen 

EAOO- 

IDA 

$AA 

Ml . 

EA02- 

CKA 

#$80 

Bit 7 setzen 

EA04- 

STA 

$A6 

in FAC2 eintragen 

EA06- 

DEY 



EA07- 

EDA 

<$5E),Y 

Exponent übertragen 

EA09- 

STA 

$A5 


EAOB- 

mk 

$9D 

mit Exponent von FACl zurück 

EAOD- 

RTS 



Exponenten von FACl und FAC2 addieren ^ 

EAOE- 

im 

$A5 

Exp 2 

EAlO- 

HBQ 

$EA31 

FAC2 = 0, also auch das Produkt, fertig 

EA12- 

diC 


EA13- 

ÄDC 

$9D 

Exp 1 addieren 

EA15- 

BCC 

$EA1B ^ 

Produkt kleiner als 1 

EA17- 

BMI 

$EA36 \ 

Produkt zu groß, OVERFIDW ERROR 

EA19- 

OiC 

\ 


EAIA- 

BIT 

$1410 i 

J —> EAIB- BPL $EA31 d.h. Produkt nullsetzen 

EAlD- 

ADC 

#$80 

Exponent des Ergebnisses in Normalform 

EAIF- 

STA 

$9D 

nach FACl bringen 

EA21- 

BtiE 

$EA26 

Produkt ungleich 0 

EA23- 

OMP 

$E852 

sonst noch Vorzeichen nullsetzen, fertig 

EA26- 

IDA 

$AB 

Kcmbi-Vorzeichen 

EA28- 

STA 

$A2 

als Vorzeichen des Ergebnisses 

EA2A- 

RTS 




für HCP-Routine Argumant prüfen 


EA2B- 

EDA 

$A2 

Vorzeioh4i von FACl (Argument der EXP-Funktion) 

EA2D- 

EOR 

#$FF 

negieren 

EA2F- 

mi 

$EA36 

FACl positiv, d.h. Argument zu groß —> OVERFLOW ERROR 

EA31- 

PIA 


FACl negativ, d.h. Argument zu klein —> nullsetzen 

EA32- 

PIA 


Rücksprungadresse entfernen 

EA33- 

JMP 

$E84E 

FACl nullsetzen, fertig 

EA36- 

OMP 

$E8D5 

OVERFLOW ERROR anzeigen 


FACl = 10 * FACl 
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V oL 


A ^ AO% 7 ^^: 4 




c5>EA39- 

JSR 

$EB63 

„ EA3C- 

TAX 


EA3D- 

HBQ 

$EA4F 

EA3F- 

dC 


EA40- 

ADC 

#$02 

EA42- 

BCS 

$EA36 

EA44- 

LCK 

#$00 

EA46- 

STX , 

$AB 

■’EA48- 

JSR 

$E7CE 

EA4B- 

INC 

$9D 

EA4D- 

BBQ 

$EA36 

EA4F- 

RTS ” 


EA50- 

84 20 

00 00 

FACl = 

EACl / 10 

EA55- 

JSR 

$EB63 

EA58- 

IDA 

#$50 

EA5A- 

IDY. 

#$EA 

EA5C- 

LDX 

#$00 

EA5E- 

STX 

$AB 

EA60- 

JSR 

$EAF9 

EA63- 

JMP 

$EA69 

FACl = 

(A,Y) / FACl 

EA66- 

JSR 

$E9E3 

FACl = 

FAC2 / FACl 

EA69- 

BEQ 

$EAE1. 

EA6B- 

JSR 

$EB72' 

EA6E- 

im 

#$00 

EA70- 

SBC 


EA71- 

SBC 

$9D 

EA73- 

STA 

$9D 

EA75- 

JSR 

$EA0E 

EA78- 

INC 

$9D 

EA7A- 

BE)Q 

$EA36 

EA7C- 

LDX 

#$FC 

EA7E- 

IDA 

#$01 

EA80- 

LDY 

$A6 

EA82- 

CPY 

$9E 

EA84- 

BNE 

$EA96 

EA86- 

LDY 

$A7 

EA88- 

CPY 

$9F 

EA8A- 

BNE 

$EA96 

EA8C- 

LDY 

$A8 

EA8E- 

CPY 

$A0 

EA90- 

BNE 

$EA96 

EA92- 

LDY 

$A9 

EA94- 

C3>Y 

$A1 

EA96- 

VHP 


EA97- 

RDL 


EA98- 

BCC 

$EAA3 

EA9A- 

INX 


EA9B- 

STA 

$65 ,X 

EA9D- 

BEQ 

$EAD1 

EA9F- 

BPL 

$EAD5 

EAAl- 

IDA 

#$01 

EAA3- 

PLP 



Exponent von EACl 

FACl = 0, also auch das Produkt, fertig 

plus 2 im Exponenten ergibt den 4-fachen Wert 
Overflow 

Koubi-Vorzeichen plus 

^FSCl = FACl + IRC2, das ergibt den 5-fachen Ifert 
plus 1 im Exponenten (d.h. verdoppeln) —> 10-fach 
Overflow 


FP-Konstante 10 


FACl nach FAC2 bringen 
Zeiger auf FP-Konstante 10 


Kcmbi-Vorzeichen plus 
Konstante nach FACl übertragen 
Division durchführen 


(A,Y) nach FAC2 übertragen 


FACl = 0, DIVISION BI ZERO ERROR 
FACl runden 


ergibt negativen Exponenten 

Exponenten und Vorzeichen des Ergebisses bestintnen 
Qvntient zu groß, OVffiFLOW ERROR 

als Index in Zeropage (überschreitet Pagegrenze nicht!) 
setze BitO = 1 als Al±>ruchmarke 
vergleiche FAC2 mit EACl 
Ml 

M2 vergleichen, da Ml gleich etc. 


rette Statusflags 
C ~> BitO; Bit7 —> C 
Atbruchraarke noch nicht erreicht 
neues Byte des Quotienten voll, 
abspeichern in Hilfsregister (62-65) 

X=0, d.h. 4 Byte im Ergebnis, jetzt noch 2 weitere Bit 
X=l, Division fertig, Routine abschließen 
Abbruch-Bit für nächstes Ergebnisbyte 
Statusflags holen 
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FACl kleiner FAC2, —> subtrahieren 
FAC2 um 1 Bit nach links schieben 


EAA4- 

BGS 

$EAB4 . 

EAA6- 

ASL 

$A9 

EAA8- 

ROL 

$A8 

EAAA- 

RDL 

$A7 

EAAC- 

ROL 

$A6 

EPäE- 

BCS 

$EA96 

EABO- 

BMI 

$EA80 

EAB2- 

BPL 

$EA96 

Mantissen subtrahieren 

EAB4- 

TAY 


EAB5- 

IDA 

$A9 

EAB7- 

SBC 

$A1 

EAB9- 

STA 

$A9 

EABB- 

IDA 

$A8 

EABD“ 

SBC 

$A0 

EABF- 

STA 

$A8 

EACl- 

IDA 

$A7 

EAC3- 

SBC 

$9F 

EAC5- 

STA 

$A7 

EAC7- 

IDA 

$A6 

EAC9- 

SBC 

$9E 

EACB“ 

STA 

$A6 

MCD- 

TYA 


i EACE- 

OMP 

$EAA6 

! EADl- 

IDA 

#$40 

EAD3- 

BNE 

$EAA3 

1 EAD5- 

ASL 


1 EAD6- 

ASL 


i EAD7- 

ASL 


S EAD8- 

ASL 


EAD9- 

ASL 


EADA- 

ASL 


EADB- 

STA 

$AC 

j EADD- 

PLP 


1 EADE- 

OMP 

$EAE6 

1 EAEl- 

LDX 

#$85 

1 EAE3- 

JMP 

$D412 


1 


FAC2 nun sicher größer als FACl/ Vergleich nicht nötig 
höchstes Bit in PAC2 =1, Vergleich di^chführen __ 

FAC2 sicher kleiner als FACl, Vergleich nicht nötig 


Ergebnisbyte retten 
M4 

subtrahieren 

M3 


Ml 


Ergebnisbyte holen 
weiter in Hauptroutine 

Abbruchmarke für 2 weitere Ergebnis-Bits 
Division abschließen 

im letzten Ergebnisbyte nur Bits 0 und 1 gültig 


diese damit in Bits 6 und 7 (d.h. linksb^dig) 
in Rundungsstelle eintragen 
Stack aktualisieren 

Hilfsregister nach FACl und linksbündig machen 

Kode für DIVISION BY ZERO ERROR 
Fehlermeldung bearbeiten 


Hilfsregister linksbündig nach FACl übertragen 


EAE6- 

IDA 

$62 

Ml 

EAE8- 

STA 

$9E 


EAEA- 

IDA 

$63 

M2 

eabc- 

STA 

$9F 


EAEE“ 

IDA 

$64 

M3 

eafo- 

STA 

$A0 


EAF2- 

IDA 

$65 

M4 

EAF4- 

STA 

$A1 

FACl linksbündig machen 

EAF6- 

OMP 

$E82E 



(A,Y) nach FACl übertragen 

ii'/ T» ( EAF9- STA $5E Zeiger übernehmen 

. EAFB- STY $5F , /. ■ V, ^ 

EAFD- LDY #$04 Index auf geringwertigstes Mantissenbyte 

EAFF- IDA ($5E),Y M4 

EBOl- STA $A1 übertragen 
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KB03- 

DEY 



EB04- 

LDA 

($5E),Y 

M3 

EB06- 

STA 

$A0 


EB08- 

DEY 



EB09- 

LDA 

($5E),Y 

M2 

EBOB- 

STA 

$9F 


EBOD- 

DEY 



EBOE- 

LDA 

($5E),Y 

höchstes Mantissenbyte althält Vorzeichen in Bit7 

IBIO- 

STA 

$A2 

als Vorzeichen von FACl' 

EB12- 

ORA 

#$80 

Bit7 =1 setzen 

EB14- 

STA 

$9E 

Ml eintrag^ 

EB16- 

DEY 



EB17- 

LDA 

($5E),Y 

Exponent 

EB19- 

STA 

$9D 

nach FACl übertragen 

EBIB- 

STY 

$AC 

Rundungsstelle löschen 

EBID- 

KTS 



FACl nach FAC4, FAC3, 

(S5V8^) oder (X,Y) übertragen 

EBlE- 

LDK 

#$98 

Einsprung für FAC4, X als Zeiger 

EB20- 

BIT 

$93A2 

—> EB21- LDX #$93 Einsprung für FAC3, X als Zeiger 

EB23- 

LDY 

#$00 

HByte 

EB25- 

BEQ 

$EB2B 

immer springen , IcxrATril M 

Einsprung für (85,86) / 

EB27- 

LDX 

$85 

EB29- 

LDY 

$86 

C A 3 ' 

FACl nach (X,Y) übertragen To c ^ V" Y 

EB2B- 

JSR 

$EB72 

FACl runden 

EB2E- 

STX 

$5E 

Zeiger auf Zieladresse übernehmen 

EB30- 

STY 

$5F 

EB32- 

LDY 

#$04 

als Index 

EB34- 

IDA 

$A1 

M4 

EB36- 

STA 

($5E),Y 

übertragen 

EB38- 

DEY 



EB39- 

IDA 

$A0 

M3 

EB3B- 

STA 

($5E),Y 


EB3D- 

DEY 



EB3E- 

IDA 

$9F 

M2 

EB40- 

STA 

($5E),Y 


EB42- 

DEY 



EB43- 

IDA 

$A2 

Vorzeichen von FACl 

EB45- 

ORA 

#$7F 


EB47- 

AND 

$9E 

in höchstes Mantissenbyte einbauen 

EB49- 

STA 

($5E),Y 

und übertragen 

EB4B- 

DEY 



EB4C- 

LDA 

$9D 

Exponent 

EB4E- 

STA 

($5E),Y 

übertragen 

FB50- 

STY 

$AC 

Rundungsstelle löschen 

EB52- 

RTS 



y 

FAC2 nach FACl übertragen \/ 

EB53- 

LDA 

$ÄA 

Vorzeichen von FAC2 

EB55- 

STA 

$A2 

—> Vorzeichen von FACl 

EB57- 

LDX 

#$05 

Index für Schleife 

EB59- 

LDA 

$A4,X 

Byte für Byte übertragen 

EB5B- 

STA 

$9C,X 


EB5D- 

DEX 




BNE 

$EB59 

weiter 

STX 

$AC 

Rundungsstelle löschen 

EB62- 

RTS 
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- FACI gerundet nach FAC2 übertragen 

/3PrEB63- 

JSR 

$EB72 cO i“6 FACI runden 

0Am66- 

LDX 

#$06- 

Index für Schleife (4Byte^antisse, Exp, 

• EB68- 

IDA 

$9C,X 'X, 

Bjte für Byte übertragen 

EB6A- 

STA 

$A4,X 

T C ^ 

EB6C- 

DEX • 



EB6D— 

BNE 

$EB68 

weiter 

EB6F- 

STX 

$AC 

Rundungsstelle löschen 

EB?1- 

RTS 



FACI runden 



£5 i(^EB?2- 

IDA 

$9D 

Exponent von FACI 

EB?4- 

BEQ 

$EB?1 

FACI = 0, fertig 

EB?6- 

ASL 

$AC 

Bit? der Rundungsstelle — > C 

EB?8- 

BCC 

$EB?1 

abrunden, d.h. fertig 

EB?A- 

JSR 

$E8C6 

aufrunden, Mantisse um 1 Bit erhöhen 

EB?E)- 

BNE 

$EB?1 

Mantisse nicht null, d.h. kein Überlauf- 

EB?F- 

JMP 

$E88F 

sonst (5:)erlauf-Bit berücksichtigen 


75 + 


Vorzeichen von FÄCl testen 

Exponent von Facl 
FACl = 0 

Vorzeichen von EACl 
Bit? —> C 
d.h. -1 
falls negativ 
sonst 1 


EB82- 

LDA 

$9D 

EB84- 

BEQ 

$EB8F 

EB86- 

LDA 

$A2 

5 EB88- 
i EB89- 

BOL 


LDA 

#$FF 

1 ! EB8B- 

BCS 

$EB8F 

1 EB8D- 

im 

#$01 

1 iEBSF- 

RTS 

• 

1 

1 Applesoft-Funktion 

! EB90- 

JSR 

$EB82 

j EB93- 

STA 

$9E 

I EB95- 

LDA 

#$00 

1 EB9?- 

STA 

$9F 

! EB99- 

LDX 

#$88 

! EB9B- 

LDA 

$9E 

1 EB9D- 

EDR 

#$EF 

i EB9F- 

ROL 


; EBAO- 

IDA 

#$00 

1 EBA2- 

STA 

$Al 

EBA4- 

STA 

$A0 

; EBA6- 

STX 

$9D 

! EBA8- 

STA 

$AC 

EBAA- 

STA 

$A2 

1 EBfiC- 

OMP 

$E829 

ÄEplesoft-Funktiön 

EBAF- 

ISR' 

$ä2 


-'RTS 



Accu 


N 


falls 


255 

0 

1 


0 1 
1 0 
0 0 


Vorzeichen von EACl testen 
Kode nach Ml 

M2 = 0 

als Exponent für Integer 

Vorzeichen 

umkehren 

Bit? —> C damit C-Flag 


M4 

und M3 löschen 
Exponent eintragen 
Rundungsstelle löschen 
Vorzeichen löschen 

invertieren falls negativ, linksbündig machen 


FACl < 0 
FACl = 0 
FACl > 0 


255 


ABS 


Bit? nullsetzen, d.h. positives Vorzeichen 
fertig 


1 


! FACl mit (A,y) vergleichen 
; fEBB2- STA $60 Zeiger übernehmen 

! EBB4- Sn $61 

; J ebb6- idx #$oo 


/I 
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i EBB8- 

IDA 

($60),Y 

Exponent des Vergleichs-Registers 

' EBBA- 

im 



EBBE“ 

TAX 


in X rterken 

EBBC- 

BEQ 

$EB82 

Vergleichs-Register = 0, —> Vorzeichen FACl testen 

1 EBBE- 

IDA 

($60),Y 

höchstes Mantissenbyte, Vorzeichen in Bit7 

I EBCO- 

EDR 

$A2- 

mit Verzeichn von FACl vergleichen 

i EBC2- 

BMI 

$EB86 

verschiedene Vorzeichen, —> Vorzeichen FACl testen 

! EBC4- 

CPX 

$9D 

Exponenten vergleichen ( C=0 falls FACl größer) 

EBC6- 

BNE 

$EHE9' 

ungleich 

EBC8- 

LDA 

($60),Y 

sonst Mantissen vergleichen 

EBCA- 

ORA 

#$80 

Bit7 setzen (statt Vorzeichen-Bit) 

EBOC- 

CMP 

$9E 

höchste Mantissenbytes vergleichen 

EBCE- 

BNE 

$EBE9 

ungleich 

EBDO- 

IM 



EH31- 

IDA 

($60),Y 

M2 vergleichen, da Ml gleich etc. 

EIBD3~ 

CMP 

$9F 



BNE 

$EBE9 


EH)7- 

INY 



EBD8- 

LDA 

($60),Y 

M3 vergleichen 

EBDA- 

OIP 

SAO 


EBDC- 

BNE 

$EBE9 


EBDE- 

• INY 



EBDF- 

IDA 

#$7F 


EBEl- 

CMP 

$AC 

Rundungsstelle mit #$7F vergleichen, C setzen 

EBE3- 

IDA 

($60),Y 

M4 vergleichen, C je nach Rundungsstelle 

EBE5- 

SBC 

$A1 


EBE7- 

BEQ 

$EC11 - 

FACl = Vergleichsregister, fertig 

5 EHE9- 

LDA 

$A2‘ 

Vorzeichen von EACl 

i EBEB- 

BOC 

$EBEF 

FACl betragsraäßig größer, —> Vergleich auswerten 

1 EBED- 

0DR 

#$ET" 

sonst Vorzeichen umkehren für Vergleichsauswertung 

v^EIBEF- 

OMP 

$EB88 

Vergleichs-Flags setzen wie bei Vorzeichentest 

FACl in 

Integerformat bringen (Integer in AO,Äl) i-'' 

EHP2- 

IDA 

$9D 

Exponent von EACl 

EBE4- 

BEQ 

$EC40 

FACl = 0, Mantisse mit Nullen füllen 

EBF6- 

SEC 



EBF7- 

SBC 

#$A0 

ergibt Stellenwert für geringwertigstes Bit 

EBF9- 

BIT 

$A2 

Vorzeichen von FACl prüfen 

ebfb- 

BPL 

$EC06 

positiv 

EBFD- 

TAX 


sonst Stellenwertigkeit retten 

EIBFE- 

IDA 

#$FF 

zum Auffüllen bei Verschieben (vgl. $E8EC) 

ECOO- 

STA 

$A4 


BC02- 

JSR 

$E8A4 

Mantisse invertieren 

ECOS- 

TXk 


Stellenwertigkeit wieder holen 

EC06- 

IDX 

#$9D 

Zeiger auf FACl für Verschiebe-Routine 

ECOS- 

CMP 

#$F9 

Stellenwertigkeit mit -7 vergleichen 

ECOA- 

BPL 

$EC12 

größer als -8 

ECOC- 

JSR 

$E8F0 

Mantisse verschieben, bis Stellenwertigkeit ok 

ECOF- 

STX 

$A4 

"Auffüllhyte" nullsetzen 

ECU- 

RTS 


fertig 

EC12- 

TAV 


Stellenwertigkeit für Verschiebung nach Y 

EC13- 

LDA 

$A2 

Vorzeichen (im Bit7) 

EC15- 

ÄND 

#$80 

herausholen 

EC17- 

TSR 

$9E 

höchstes Mantissen-Byte nach rechts schieben 

EC19- 

ORA 

$9E 

Vorzeichen-Bit eintragen 

ECIB- 

STA 

$9E 


EClD- 

JSR 

$E907 

weiter bei Verschiebe-Routine 

EC20- 

STY 

$A4 

"Auffüllbyte" nullsetzen 

EC22- 

RTS 
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Aßplesoft-Funktion HW i/ 


BC23- 

IDA 

$9D 

Exponent von FACl 

ECZS- 

CMP 

#$A0 

schon richtige Stellenwetigkeit für Integerformat? 

h:27- 

BGS 

$BE49 

FACl schon ganzzahlig, fertig 

BC29- 

JSR 

$EBF2 

sonst FACl in Integerformat bringen 

0220- 

STY 

$AC 

Rundungsstelle löschen 

EC2E- 

UÄ 

$A2 

Vorzeichen von EACl nach Accu 

B230- 

STY 

SA2 

Vorzeichenbyte löschen 

0232- 

EDR 

#$80 

Vorzeichen in Bit7 negieren 

B234- 

BOL 


Damit C=1 falls positives Argument 

BE 35- 

LDA 

#$A0 

Exponent für Integerformat 

BE37- 

STA 

$9D 

eintragen 

BC39- 

LDA 

$Al 

niedrigstes Mantissenbyte 

BC3B- 

STA 

$0D 

retten (vgl. $EEB8, $EF2A) 

B23D- 

JMP 

$E829 

FACl linksbündig machen 

BC40- 

STA 

$9E 

Mantisse von FACl mit Wert in Accu füllen (vgl. $EBF4) 

BE 42- 

STA 

$9F 


BE44- 

STA 

$A0 


BE46- 

STA 

$A1 


BE48- 

TAY 



BE49- 

BIS 




Zahlenstring in FP-Kcxistante (in EACl) umwandeln 
I: CHKGET zeigt auf Stringadresse, Aocu = 1.Zeichen 


EC4A- 

im 

#$00 


BC4C- 

im 

#$0A 

als Zählindex 

BC4E- 

>STy 

$99 ,X 

Zer<^ge-Ädressen $99 - $A3 löschen 

BE50-( 

DEX 



BC51-' 

^ BPL 

$BE4E 

nächstes Byte löschen 

Auswertung der Stringmantisse 

BE53- 

ABCC 

$BE64 

1. Stringzeichen ist Ziffer, zur Mantissenauswertung 

BE55-/ 

CMP 

#$2D 

Ascli für ? 

BE57-' 

/mz 

$BC5D 

nein, weiter 

BC59r 

( STX 

$A3 

Bit7 = 1, d.h. Mantissenvorzeichen = minus 

BC5BH 

y'BEQ 

$0261 

weiter mit nächstem Zeichen (immer springen) 

BC5D-' 


#$2B 

Ascii für "-t" ? 

BESFr 

BNE 

$BC66 

nein, weiter 

BE61-^ 

rrtisR 

$00B1 

neues Stringzeichen holen 

BE64- 

"'BOC 

$BEC1 

Ziffer, ztir Mantissenauswertung 

BE66- 

CMP 

#$2E 

Ascii für (d.h. Dezimalpunkt) ? 

BE68- 

BBQ 

$0298 < 

Ja, Dezimalpunkt-Flag setzen 

Auswertung des Stringexponenten 

BE6A- 

aip 

#$45 

Ascii für "E" ? 

BE6C- 

eiE 

$BE9E 

nein, keine Zehnerpotenz angegeben, Routine alaschließen 

BE6E- 

JSR 

$00B1 

ja, neues Zeichen holen 

BC71- 

BOC 

$BE8A 

Ziffer, zur Exponenten-Auswertung \ 

EE73- 

-.Off—-+$69 

Token für ,? 

BE75- 

-beb- 

-$BE85 

ja, Stringecponent negativ 

BE77- 

CMP 

#$2D 

Ascii für ? 

BE79- 

HB2 

$0285 

ja, Stringexponent negativ 

BE7B- 

-CMP--#$68- 

Token für “+” ? 

BE7D- 

-BBS- 

-$EE87- 

ja, ignorieren 

BETF- 

CMP 

#$2B 

Ascii für “-t" ? 

EE81- 

BEQ 

$BE87 

ja, ignorieren 

BE83- 

BNE 

$0286 

sonst String fertig ausgewertet, Routine abschließen 

BE85- 

BOR 

$9C 5 

C=1 —> Bit7, d.h. negatives Exponenten-Vorzeichen 

BC87- 

JSR 

$00B1 

neues Stringzeichen holen 
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En8A- 


$EnE8 


Ziffer, zur Exponenten-Auswertung 

Dezimalstellen auswerten 


h:8c- 

BIT 

$9C 


Vorzeichen des Exponenten prüfen 

BC8E- 

BPL 

$EC9E 


positiv, Stellenwertigkeit berücksichtigen 

EC90- 

WA 

#$00 


negativ, Exponentenregister negativ nachen 

h:92- 

SEC 




BC93- 

SBC 

$9A 

* 


EC95- 

JMP 

$BCA0 


Stellenwertigkeit berücksichtigen 

BC98- 

SDR 

$9B 


C=1 —> Bit7, d.h. Dezimalpunkt-Flag setzen 

BC9A- 

BIT 

$9B 

(D 

teste Bits ( =1, falls Bit7 vorher schon gesetzt war) 

fC9C- 

BVC 

$BC61 


Bit6=0, weiter mit nächsten Zeichen 

EC9E- 

IDA 

$9A 

k. 

Exponentenregister (aathält Stellenwertigkeit) 

bcäo- 

SBC 




ECAl- 

SBC 

$99 

•* 

minus Anzahl der Nachkommastellen 

ICÄS- 

STA 

$9A 

4 

ergibt vahre Stellenwertigkeit 

BCA5- 

BEQ 

$ECB9 


=0, keine dezimale Verschiebung ( denn lO^O = 1) 

Bca7- 

BPL 

$BCB2 


positiv, FACl mit ent^r. Zehnerpotenz multiplizieren 

durch 

Zehnerpotenz dividieren 

BCa9- 

JSR 

$EA55 • 


FACl = FACl / 10 

ECAC- 

INC 

$9A 


als Zähler für Zehnerpotenz 

ECAE- 

BNE 

$ECA9 


weiter durch 10 dividieren 

ECHO- 

HEQ 

$ECB9 


Mantissen-Vorzeichen laeachten, dann fertig 

mit Zehnerpotenz multiplizieren 

ECB2- 

JSR 

$EA39 


FACl = FACl * 10 

ECB5- 

DEC 

$9A 

« 

als Zähler für Zöinerpotenz 

ECB7- 

BNE 

$b:b2 


weiter mit 10 multiplizieren 

ECB9- 

IDA 

$A3 

• 

Vorzeichen dar Mantisse 

EEBB- 

BMI 

$ECBE 


negativ, Vorzeichenwechsel 

BEBD- 

RIS 



positiv, fertig 

ECBE- 

JMP 

$eedo 


Vorzeichenwechsel bei FACl durchführen, dann fertig 

Mantissenziffer auswerten 

ECCl- 

PHA 



Ziffer retten 

ECC2- 

BIT 

$9B 

* 

beste Dezimalpunkt-Flag 

BCC4- 

BPL 

$£EC8 


Vorkoinmastelle 

IIX6- 

DC 

$99 


Zähler für NacWaamnastellen erhöhen 

BCC8- 

JSR 

$EA39 


FACl = EACl * 10, d.h. um eine Dezimale verschieben 

BXß- 

ELA 



Ziffer (in Ascii) holen 

ICCC- 

SBC 




ECCD- 

SBC 

#$30 


ergibt reine Ziffer 

BXF- 

JSR 

$BCD5 


diese zu FACl addieren 

BCD2- 

JMP 

$BC61 


weiter mit neuem Zeichen 

Zahl in Accu 

zu EACl 

addieren 

EED5- 

PHA 



Zahl retten 

ICD6- 

JSR 

$EB63 > 


FACl gerundet nach FAC2 übertragen 

ECD9- 

PLA 



Zahl wieder holen 

BEDA- 

JSR 

$EB93 


und in FP-Konstante (in FACl) umwandeln 

ECDD- 

IDA 

$AA 


Vorzeichen von FACl 

ICDF- 

BDR 

$ä2 


mit Vorzeichen von FAC2 verknüpfen 

BCEl- 

STA 

$ab 


ergibt Konbi-Vorzeichen 

ECE3- 

IDX 

$9D 

* 

Exponent von FACl nach Accu, 

ECES- 

JMP 

$E7C1' 


Addition durchführen 


Exponentenziffer atiswerten 

ECE8- IDA $9A bisheriger Exponent 
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-7 / 0 *■ 


,4 


ECEA- 

OlP 

#$0A 

mit 10 vergleichen 

EEEC- 

BCC 

$BCF7 - 

kleiner, Ziffer in Exponent eintragen 

ECEE- 

IXA 

#$64 

sonst 100 als neuer Exponentenbetrag 

ECFO- 

BIT 

$9C 

teste Exponenten-Vorzeichen 

ECF2- 

BMI 

$£D05 

negativ, damit wird FACl später zu null 

h : f 4 - 

JMP 

$E8D5 

positiv, CSVERFIOW EE®OR 

ECF7- 

ASI. 


bisheriger Exponent verdoppeln 

ECF8- 

ASL 


damit 4-fach 

ECF9- 

ac 



ECFA- 

ADC 

$9A 

einmal addiert ergibt 5-facher Wert 

ECFC- 

ASL 


verdoppeln, ergibt 10-fachen Vfert 

HCFD- 

ac 



ECFE- 

IDY 

#$00 


EDOO- 

ADC 

($ß8),Y 

Ascii-Kode der neuen Ziffer addieren 

ED02- 

SBC 



ED03- 

SBC 

#$30 

Ergebnis korrigieren 

ED05- 

STA 

$9A 

neue Zehnerpotenz eintragen 

ED07- 

JMP 

$BC87 

weiter mit neuan Zeichen 

EDOA- 

9B 3E BC IF FD 

FP-Kcnst. 99 999 999.906 

moF- 

9E 6E 6B 27 FD 

FP-Kaist. 999 999 999.25 

ED14- 

9E 6E 6B 28 00 

FP-Kcxist. 1000 000 000 

Ausgabe der Zeilennurtmer bei Fehlermeldungen 

ED19- 

EDA 

#$58 

Zeiger auf,,String "IN " 

EDIB- 

IDY 

#$D3 


EDID- 

JSR 

$H)31 

String drucken 

ED20- 

LDA 

$76 

aktuelle Zeilennummer (dort trat der Fehler auf) 

ED22- 

LDX 

$75 


ED24- 

STA 

$9E 

nach FACl übertragen 

ED26- 

STX 

$9F.' 


ED28- 

USX ,/'|$90 

als Exponent 

ED2A- 

SEC 



Er)2B- 

JSR 

$EBA0 

FACl normieren 


j® 

$H334 

FACl in Zahlenstring umwandeln 

JB31- 

JMP 

$DB3A 

String drucken 

Omrandlung von EACl in 

Zahlenstring / 

0: Stringädresse $0100 


ED34~ 

LDY 

#$01 

Offset zu $00FF für Zeiger auf neuen String 

Einsprung von 

STR$ mit Y=0 (d.h. String ab $00EF) 

ED36- 

LDA 

#$2D 

Ascii für 

ED38- 

DEY 



ED39- 

BIT 

$A2 

Vorzeichen von FAC^ 4 

^ED3B- 

BPL 

$ED41 

positiv, vreiter 

ED3D- 

INY 



ED3E- 

STA 

$00EP,Y 

sonst Minuszeichen eintragen 

|ED41— 

STA 

$A2 

Bit? nullsetzen, d.h. Betrag von FACl bilden 

!ED43- 

STY 

$AD 

Zeiger auf neuen String retten 

ED45- 

INY 



ED46- 

LDA 

#$30 

Ascii für "0" 

ED48- 

LDX 

$9D 

Exponent von FACl 

'ED4A- 

BNE 

$ED4F 

FACl ungleich 0 

ED4C- 

OMP 

$EE57 

sonst Ascii-Kode für "0" eintragen und fertig 

FACl in den Bereich (10 

~8 , 10*9) bringen 

'ED4F- 


#$00 


.ED51- 

CPX 

#$80 

Exponent von FACl mit #$80 vergleichen 
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1 ED53- 

BBQ 

$ED57 

Betrag von FACl zwischen 0.5 und 1 

■'ED55- 

BGS 

$ED60 

Betrag von FACl >= 1 

ED57- 

IDA 

#$14 

Zeiger auf FP-Kaistante 1000 000 000 

.,ED59- 

LDY 

#$ED 


ED5B- 

JSR 

$E97F 

FACl = FACl * 1000 000 000 

ED5B- 

IDA 

#$F7 

-9 

fED60- 

STA 

$99 

als Stellenwert-Flag eintragen 

IeD62- 

IDA 

#$0F 

Zeiger auf FP-Konstante 999 999 999.25 

.ED64- 

im 

#$ED 


%) 66 - 

JER 

$EBB2 -■ 

vergleiche FACl mit 999 999 999.25 

.ED69- 

BEQ 

$ED89 

gleich, ok, im Sollbereich 

ED 6 B- 

BPL 

$ED7F-^ 

zu groß, durch 10 dividieren 

HD 6 D- 

IDA 

#$0A- 

Zeiger auf FP-Kbnstante 99 999 999.906 

ED 6 F- 

IDY 

■#$ED.. 

> 

ED71- 

JSR 

$EBB2‘ 

vergleiche FACl mit 99 999 999.906 

•ED74- 

BEQ 

$ED78 

gleich, zu klein, mit 10 multiplizieren 

ED76- 

BPL- 

$ED 86 

größer, ok, im Sollbereich 

ED78- 

JSR 

$EA39 

kleiner, FACl mit 10 multiplizieren 

ED7B- 

DEC 

$99 ■ 

Stellenwert-Flag verringern 

5 ED7D- 

BNE 

$ED 6 D^s' 40 -^prüfen, ob nun im Sollbereich 

ED7F- 

JSR 

$EA55 

FACl durch 10 dividieren 

ED82- 

nc 

$99 

Stellenwert-Flag erhöhen 

ED84- 

BNE 

$ED62 

prüfen, ob nun im Sollbereich 

Stringformat bestiimen 

(Exponentialdarstellung?) 

ED 86 - 

JSR 

$E7A0 

FACl = FACl + 0.5 (d.h. auf runden) 

EII89- 

JSR 

$EBF2 

FACl in Integerformat bringen (keine Nachkaimastellen) 

ED 8 C- 

IDX 

#$01 


ED 8 E- 

IDA 

$99 

Stellenwert-Flag 

ED90- 

CLC 



ED91- 

ADC 

#$0A 

plus 10 ergibt vrahren Exponenten +2 

ED93- 

BMI 

$ED9E 

<0, d.h. wahrer Exp < -2, d.h. Betrag < 0.01 

ED95-, 

OlP 

#$0B 

d.h. wahren Exponenten mit 9 vergleichen 

ED97- 

BCS 

$ED9F 

Betrag >= 10*9, deswegen Exponentialdarstellung 

ED99- 

ADC 

#$FF 

minus 1 

ED9B- 

■EAX 


wahrer Exponent +1 in X merken 

ED9C- 

IDA 

#$02 


ED9E- 

SBC 



ED9I^- 

SBC 

#$02 

normale Darst. Exponential-Darst. 

EDTä- 

STA 

$9A 

ergibt 0 Exponenten 

EDA3- 

STX 

$99 

ergibt Exponenten +1 1 

EDA5- 

■IXA 


Anzahl signifikanter Vorkcmnastellen 

EDA 6 - 

BEQ 

$EDAA 

=0, d.h. 0.1 <= Betrag < 1 

EDA 8 - 

BPL 

$EDBD- 

>0 d.h. Betrag > 1 

HDAA- 

IDY 

$AD # X 

Zeiger auf den String 

EDAC- 

Wk 

#$2E 

Äscii für Dezimalpunkt 

EDAE- 

mc 



EDAF- 

STA 

$00FP,Y 

in String eintragen 

EDB2- 

■ECA 


Anzahl signifikanter Vorkannastellen 

EDB3- 

BEQ 

$hdbb 

0.1 <= Betrag < 1 

EDB5- 

IDA 

#$30 

0.01 <= Betrag < 0.1, daher "0" hinter Dezimalpunkt 

EDB7- 

INY 



EDB 8 - 

STA 

$00FF,Y 

Ascii für "0" eintragen 

EDBB- 

STY 

$AD 

Zeiger auf den String wieder retten 

AHpraximation der einzelnen Dezimalstellen 

EDBD- 

IDY 

#$00 1 

als Zeiger auf Integer-Konstante -100 000 000 

EDBF- 

IDX 

#$80 » 

als Zähler (Bit7=1 bedeutet negative Konstante) 

EDCl- 

IDA 

$A1 

Konstante zu FACl addieren 
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EDC3- 

CEC 



EDC4- 

ADC 

$EE6C,Y 


EDC7- 

STA 

$Äl 

M4 

EDC9- 

LDA 

$A0 


H3CB- 

ADC 

$EE6B;Y 


EDCE- 

STA 

$A0 

M3 

EDDO- 

EDA 

$9F 


EDD2- 

ADC 

$EE6A,Y 


EDD5- 

STA 

$9F 

M2 

EDD7- 

EDA 

$9E 


EDD9- 

ADC 

$EE69,Y 


EDDC- 

STA 

$9E 

Ml 

EDDE- 

INX 


Zähler erhöhen 

EDDF- 

BCS 

$EDE5 

weiter mit dieser Konstanten, falls Ergebnis positiv 

EDEl- 

HFL 

$EDC1 

und Konstante negativ oder umgekehrt 

EDE3- 

BMI 

$EDE7 


EDE5- 

BMI 

$Erci 


EDE7- 

TXA 


Zähler = Ziffer +1 

EDE8- 

BOC 

$EDEE 

d.h. Konstante vrar negativ 

EDEA- 

FDR 

#$FF 

sonst bzgl. 10 konplementieren, d.h. Accu = 10 - Accu 

EDBC- 

ADC 

#S0A 


EDEE- 

ADC 

#$2F 

ergibt Ascii-Kode der Ziffer 

EDFO- 

INX 


Zeiger auf nächste Konstante erhöhen 

EDFl- 

INY 



EDF2- 

INY 



EDF3- 

INY 



EDF4- 

STY 

$83 

und irerken 

EDF6- 

EDY 

$AD 

Zeiger auf den String holen 

EDF8- 

INY 



H)F9- 

TAX 


Ziffernkode marken 

EDFA- 

AND 

#$7F 

Bit7 löschen 

FDFC- 

STA 

$00FF,Y 

und in String eintragen 

EDFF- 

DEC 

$99 

Anzahl weiterer Vorkonmastellen verringern 

EEOl- 

BNE 

$EE09 

Dezimalpunkt noch nicht erreicht 

EE03- 

IX>A 

#$2E 

sonst Ascii-Kode für Dezimalpunkt 

EE05- 

INY 



EE06- 

STA 

$00FP,Y 

in String eintragen 

EE09- 

STY 

$AD 

Zeiger auf den String wieder retten 

EEOB- 

EDY 

$83 

Zeiger auf Kcnstanten-Tabelle holen 

EEOD- 

TXA 


Ziffer, Bit7 = Vorzeichen der alten Konstante 

EEOE- 

BOR 

#$11’ 

invertieren 

EEIO- 

AND 

#$80 

neue Konstante hat imgekehrtes Vorzeichen 

EE12- 

m 


X wieder als Zähler 

EE13- 

CPY 

#$24 

sämtliche 9 Stellen bestimmt? 

EE15- 

BNE 

$EDC1 

nein, neue Ziffer bestimmen 

unnötige Nullen entfernen 

EE17- 

im 

$AD 

Zeiger auf den String holen 

EE19- 

IXA 

$OOEF,Y 

suche hinterstes von "0" verschiedenes Zeichen 

EEIC- 

DEY 



EEID- 

CMP 

#$30 

Ascii-kode von "0“ 

EEIF- 

BBQ 

$EE19 

"0", vreiter 

EE21- 

CMP 

#$2B» 

Dezimalpunkt? 

EE23- 

BBQ 

$EE26 

ja, teine Nachkoramastelle, Zeiger auf Dezimalpunkt 

EE25- 

im 


sonst Zeiger auf erste "0" setzen 

Format 

für Exponentialdarstellung herstellen ^ 

EE26- 

EDA 

#$2B 

Äscii-Kode für "+” 

EE28- 

IDX 

$9A 

Exponent 

EE2A- 

BEQ 

$EE5A 

keine Exponential-Darstellung 

EE2C- 

BPL 

$EE36 

Exponent positiv 
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EE2E- 

EDA 

#$00 


EE30- 

SBC 



EE31- 

SBC 

$9A 

ergibt Betrag des Exponaiten 

EE33- 

TAX 



EE34- 

LEÄ 

#$2D 

Ascii-Kode für 

EE36- 

STA 

$0101,Y 

in String eintragen (mit Lücke für "E") 

EE39- 

im 

#$45 

Ascii-Kode für "E" 

EE3B- 

STA 

$0100,Y 

in String eintragen 

EE3B- 

TXA 


Betrag des Exponenten 

EE3F- 

LDX 

#$2F 

X als Zähler vorbereiten 

EE41- 

SBC 



EE42- 

INX 



EE43- 

SBC 

#$0A 

so oft 10 subtrahieren, bis Ergebnis negativ, 

EE45- 

BCS 

$EE42 

X enthält dann den Ascii-Kode der Zehnerstelle 

EE47- 

ADC 

#$3A 

(Einerstelle -10) + 58 ergibt Ascii-Kode Einerstelle 

EE49- 

STA 

$0103 ,Y' 

Einerstelle des Exponenten eintragen 

EE4C- 

TXA 



EE4I>- 

STA 

$0102,Y 

Zehnerstelle des Exponenten eintragen 

EE50- 

LDA 

#$00 

als String-Enduarke 

EE52- 

STA 

$0104,Y 

eintragen 

EE55- 

BEQ 

$EE5F 

Stringzeiger holen, fertig 

Einsprung falls Zahl =0 

var 

EE57- 

STA 

$00EF,Y 

Ascii-Kode für “0“ eintragen 

EE5A- 

LDA 

#$00 

String-Endmarke anfugöi 

EE5C- 

STA 

$0100 ,Y 


EE5F- 

EDA 

#$00 

Zeiger auf Zahlenstring 

EE61- 

LDY 

#$01 


EE63- 

RTS 



EE64- 

80 00 

00 00 00 

FP-Konstante 0.5 

Koistanten im Integerfoimat 

'1 EE69- 

FA OA IF 00 

- 100 000 000 

S EE6D- 

00 98 

96 80 

10 000 000 

- EE71- 

FF'FO 

BD CO 

- 1 000 000 

‘ EE75- 

00 01 

86 AO 

100 000 

i EE79- 

FF FF 

D8 FO 

- 10 000 

i- EE7D- 

00 00 

03 E8 

1 000 

Teesi- 

FF FF 

FF 9G 

- 100 

iEE85-. 

00 00 

00 OA 

10 

®)EE89- 

FF FF 

FF FF 

- 1 

AEplesoft-Funktion SQR 

C / 

n/ V V - \y 

EE8D- 

JSR 

$EB63 

FACl nach FAC2 übertragen 

EE90- 

EDA 

#$64 

Zeiger auf FP-Konstante 0.5 

EE92- 

IDY 

#$EE 


EE94- 

JSR 

$EAF9 

Konstante nach FACl übertragen, weiter mit Potenzierung 


FACl = FAC2 ^ FACl 

mit der Formel a * b = exp( b * ln(a) ) 
I: Accu althält Exponenten von FACl 


EE97- 

BEQ 

$EF09 

FACl = 0, vreiter bei 

EXP ergibt richtiges Ergebnis 1 

EE99- 

EDA 

$A5 

Exponent von EAC2 


EE9B- 

BNE 

$EEA0 

ungleich 0 


EE9D- 

JMP 

$E850 

sonst Ergebnis = 0, 

—> FACl nullsetzen 

EEAO- 

IDX 

#$8A 

Zeiger auf FAC5 


EEA2- 

W 

#$00 
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K X 


ff 



EEA4- 

JSR 

$EB3 

FACl nach FAC2 übertragen (=b) 


EEA7- 

IßA 

$AA 

Vorzeichen von FAC2 (=a) 


EEA9- 

BPL 

$EEBA 

positiv 


EEAB- 

JSR 

$BC23 

FACl = INT (FACl) (ergibt Int(b)) 


EEAE- 

LDA 

#$8A 

Zeiger auf FAC5 


EEBO- 

LDY 

#$00 



EEB2- 

JSR 

$EBB2 

FACl = FAC5? (gleich falls b ganzzahlig, -> A=0, Y=4) 


EE35-- 

BNE 

$EEBA 

ungleich, d.h. b nicht ganzzahlig (A=255, Y=1...4) 


EEB7- 

T7A 


damit Bit7=0 (für positives Vorzeichen von a) 


EEB8- 

IBY 

$0D 

=b, ganzzahlig (vgl $BC23) 


EEIBA- 

JSR 

$EB55 . 

FAC2 —> FACl, negativ falls a<0 und b nicht ganzzahlig 


PTRRn- 

m 


=0 falls a>0; =b falls a<0 und b ganz; =1..4 sonst 


EBBE- 

PHA 


retten 


EEBP- 

JSR 

$E941 . 

LOCS-Routine —> ln(a) bzw. In(-a) falls a<0 und b ganz 


EBC2- 

LDA 

#$8A 

/ sonst ILLH3AL QUANTITY 


EBC4- 

LDY 

#$00 

Zeiger auf FAC5 (enthält b) 


EEC6- 

JSR 

$E97F 

FACl = FACl * FAC5 , ergibt b * ln(a) 


EBC;9- 

JSR 

$EF09 

FACl = E!CP(FACl), ergibt exp( b * ln(a) ) 


EEXX:- 

PLA 


Bit0=l falls a<0 und b ungeradzahlig (vgl. $EEBD) 


EBCD- 

rsR 


BitO —> C 


EECE- 

BOC 

$EEDA 

Vorzeichen des Ergebnisses positivX fertig 


EEDO- 

LDA 

$9D 

Exponent von FACl 


EED2- 

BEQ 

$EEDA 

Ergebnis =0, fertig 


EED4- 

U3A 

$A2 

negatives Vorzeichen eintragen 


EED6- 

BDR 

#$EF 



EED8- 

STA 

$A2 



EEDA- 

RTS 




EEDB- 

81 38 AA 3B 29 

FP-Konstante 1 / ln(2) 


Reihenkoeffizienten für 

EXP-Routine 


EEEO- 

07 


Grad des Polynons 


EEEl- 

71 34 

58 3E 56 

2.14987637 E-5 


EEE6- 

74 16 

7E B3 IB 

1.43523140 E-4 

V'^ 

EEEB- 

77 2F EE E3 85 

1.34226348 E-3 

X 

EEFO— 

7A ID 84 IC 2A 

9.61401701 E-3 

xx'j 

EEF5- 

7C 63 

59 58 OA 

5.55051269 E-2 


EEIPA- 

7E 75 

FD E7 C6 

2.40226385 E-1 


EEFF- 

80 31 

72 18 10 

6.93147186 E-1 = ln(2) 


EP04- 

81 00 

00 00 00 

1.0 


Applesoft-Funktion JXP 

r 


mit der Formel exp(x) = 

2 ' ( X / ln(2) ) 


EF09- 

LDA 

#$DB 

Zeiger auf FP-Konstante 1 / ln(2) 


EFOB- 

LDY 

#$EE 



EFOD- 

JSR 

$E97F '■ 

FACl = Konstante * FACl, ergibt also x / ln(2) 


EFIO- 

LDA 

$AC 

Rundungsstelle von FACl 


EF12- 

ADC 

#$50 



EF14- 

BOC 

$EF19 

abrunden 


EF16- 

JSR 

$EB7A* 

aufrunden 


EF19- 

STA 

$92 

neue Rundungsstelle nerken 


EFIB- 

JSR 

$EB66 

FACl nach FAC2 kopieren 


EPlE- 

IXR 

$9D 

Exponent von FACl 


EF20- 

CMP 

#$88 

vergleichen 


EF22- 

BOC 

$EF27 

FACl < 128 


EF24- 

JSR 

$EA2B W 

Argunnent zu groß, —> OVERFIDW ERROR 


EF27- 

JSR 

$BC23 

INT-Routine 


EF2A- 

IDA 

$0D 

ganzzahliger Anteil von FACl 
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EF2C- 

CLC 



EF2D- 

ADC 

#$81 


EF2F- 

HEQ 

$EF24 

FACl >= 127, OVERFLOW ERROR 

EF31- 

SBC 



EF32- 

SBC 

#$01 

minus 1 

EF34- 

PHA 


ergibt Int( x / ln(2) ) - 1, retten 

EF35- 

LDX 

#$05 

FACl mit FAC2 vertauschen 

EF37- 

LDA 

$A5,X 


EF39- 

LDY 

$9D,X 


EF3B- 

STA 

$9D,X 

, 

EP3D- 

STY 

$A5,X 


EF3F- 

DEK 



EP40“ 

jaPL 

$EP37 

nächstes Byte vertauschen 

EF42- 

LDA 

$92 

garerkte Rundungsstelle 

EF44- 

STA 

$AC 

in FACl eintragen 

EF46- 

JSR 

$E7AA' 

FACl = FAC2 - FACl, ergibt negativen Bruchteil 

EF49- 

JSR 

$EED0 

FACl = -FACl, ergibt dezimalen Bruchteil von x / ln(2) 

EF4C- 

LDA 

#$E0 

Zeiger auf Tabelle der Polynonkoeffizienten 

EF4E- 

UDY 

#$EE 

(diese betragen etwa ln(2)"k / k!, k=0,l,...,7) 

EF50- 

JSR 

$EF72 

Polynom auswerten mit Argument x', ergibt exp(x') 

EF53- 

LDA 

#$00 


EF55- 

STA 

$AB 

Kombi Vorzeichen löschen, d.h. "+" 

EF57- 

PLA 


Exponent bzgl.2, = Int( x / ln(2) ) -1 

EF58- 

JSR 

$EA10 

zu Exponent von FACl addiert ergibt gesamten Exponenten 

EF5B- 

RTS 




\ Polynon auswerten (nur ungerade Potenzen) 

! I: FACl althält das Argument x 

j EF5C- STA $AD Zeiger auf Tabelle der Polynonücoeffizienten 

EF5E- STY $AE 

I EF60- JSR $EB217. FACl gerundet nach FACl übertragen 

/ EF63- LDA #$93 ‘ Zeiger auf FAC3 

j EF65- JSR $E97F . FACl = FACl * FAC3, ergibt also x*2 

I EF68- JSR ^EF76 ' Polynom auswerten, ergibt Kl + K3*x*2 + K5*x'4 +... 

EF6B- LDA #$93 Zeiger auf FAC3 

EP6D- UDY #$00 FACl = FACl * FAC3 ergibt Kl*x + K3*x*3 + K5*x'-5 +... 

EF6F- JMP $E97F FACl = FACl * FAC3, ergibt Kl*x + K3*x''3 + K5*x*5 +... 

_ _ 


Polynon nach Hornerscheina auswerten 
I: FACl althält das Argument x 

Ä,Y zeigt auf Tabelle mit den Polynonkoeffizienten 
0: FACl althält das Ergebnis 


EF72- 

STA 

$AD 

Zeiger auf Tabelle der Polyncmkoeffizienten 

1 EF74- 

STY 

$AE 


■/I EFie- 

JSR 

$EB1E ? 

FACl nach FAC4 übertragen 

/ EF79- 

LDA 

($AD),Y 

Polynomgrad holen (als Zähler) 

1 EF7B- 

STA 

$A3 

eintragen 

EP7D- 

LDY 

$AD 


EF7F- 

INY 


Zeiger auf 1. Koeffizienten, LByte 

EF80- 

TYA 


—> A 

EF81- 

BNE 

$EP85 . 


EF83- 

INC 

$AE 

HByte korrigieren 

EF85- 

STA 

$AD 

LByte eintragen 

EF87- 

IDY 

$AE 

damit zeigt A,Y auf 1. Koeffizienten 

EF89- 

JSR 

$E97F . 

FACl = FACl * (A,Y), d.h. mit x multiplizieren 

EP8C- 

LDA 

$AD 

Zeiger auf Koeffizienten 

j EF8E- 

LDY 

$AE 


EF90- 

CLC 



1 EF91- 

ADC 

#$05 

um 5 erhöhen 


l 

\ 
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EF93- 

BCC 

$EF96 ' 


KF95- 

INY 



EF96- 

STA 

$AD 

ergibt Zeiger auf nächsten Koeffizienten 

EF98- 

sry 

$ÄE 


EF9A- 

JSR 

$E7BE • 

FACl = lacl + (A,Y), d.h. neuen Koeff. addieren 

EF9D- 

LDA 

#$98 

Zeiger auf FAC4 (enthält x) 

EF9F- 

LDY 

#$00 


EFAl- 

DEC 

$A3 

Zähler dekraientieren 

EFA3- 

BNE 

$EF89 

Absolutglied noch nicht erreicht, vielter in Schleife 

EFA5- 

BIS 



Konstanten für RND 


EPA6- 

98 35 

44 7A (68) 

1.18795464 E)t7 

EFAA- 

68 28 Bl 46 (20) 

3.92767778 E-8 

Applesoft-Funktion RND 


EFAE“ 

JSR 

$EB82 

Vorzeichen von FACl testen 

EFBl- 

TAX 


= 255 / 0 / 1 bei - / 0 / + 

EFB2- 

BMI 

$EFCC 

negativ 

EFB4- 

LDA 

#$C9 

Zeiger auf frühere Zufallszahl 

EFB6- 

LDY 

#$00 


EFB8- 

JSR 

$EAF9 

diese nach FACl übertragen 

efbb- 

TXA 



EFBC“ 

BBQ 

$EFA5 

Argument war 0, fertig (keine neue Zufallszahl) 

ERBE- 

LOA 

#$A6 

Zeiger auf 1. Konstante (zl) 

EFCO- 

LDY 

#$EF 


EFC2- 

JSR 

$E97F 

FACl = FACl * Zl 

EFC5- 

LDA 

#$AA 

Zeiger auf 2. Konstante (Z2) 

EPC7- 

LDY 

#$EF 


EPC9- 

JSR 

$E7BE 

FACl = FACl + Z2 

FÄCl durcheinander schütteln 

EPCC“ 

LDX 

$A1 

M4 mit Ml vertauschen 

EPCE- 

LDA 

$9E 


EFDO- 

STA 

$A1 


EFD2- 

STX 

$9E 


EPD4- 

IDA 

#$00 


EFD6- 

STA 

$A2 

erzwingt positives Vorzeichen 

EFD8- 

LDA 

$9D 

Exponent 

EFDA“ 

STA 

$AC 

als Rundungsstelle verwenden 

EFDC- 

IDA 

#$80 

als neuer Exponent 

EFDE- 

STA 

$9D 

eintragen, Ergebnis damit sicher < 1 

EFEO- 

JSR 

$E82E 

FACi linksbündig machen 

EFE3- 

LDX 

#$C9 

Zeiger auf Register für Zufallszahl 

EFE5- 

LD!f 

#$00 


EFE7- 

JMP 

$EB2B 

neue Zufallszahl dort eintragen 

i^lesoft-Punktion CCS 


EPEA- 

IDA 

#$66 

Zeiger auf FP-Koistante Pi / 2 

EFBC- 

ID« 

#$F0 


EFEE- 

JSR 

$E7HE 

FACl = FACl + Pi / 2, vreiter bei SIN-Routine 

Applesoft-Funktion SIN 


EETI— 

JSR 

$EB63- 

FACl gerundet nach FAC2 

EFP4- 

IDA 

#$6B 

Zeiger auf FP-Konstante 2 * Pi 

EFF6- 

IDY 

#$F0 


EFF 8- 

IDX 

$AA 

Vorzeichen von FAC2 holen 

effa- 

JSR 

$EA5E ■ 

FACl = EAC2 / (2 * Pi), d.h. Periode normieren 
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EFFD- 

JSR 

$EB63 ■ 

FACl gerundet nach FAC2 

FOOO- 

JSR 

$h:23 ■ 

INT-Routine bestimmt Anzahl voller Perioden 

F003- 

im 

#$00 


F005- 

STA 

$AB 

Konbi-Vorzeichen löschen 

F007- 

\ 

JSR 

$E7AA ■ 

FACl = Fac2 - FACl (damit innerhalb 1, Periode) 

Argiiraent in Intervall (- 

-Pi/2, Pi/2) transformieren 

FOOA- 

um 

#$70 

Zeiger auf FP-Konstante 0.25 

FOOC- 

LDY 

#$F0 


FOOE- 

JSR 

$E7A7 

FACl = 0.25 - EACl 

FOll- 

um 

$A2 

Vorzeichen von FACl 

F013- 

HJA 


merken 

F014- 

BPL 

$F023 

positiv, Argument war im 1. Quadranten 

F016- 

JSR 

$E7A0 

FACl = EACl + 0.5 

P019- 

um 

$A2 

Vorzeichen holen 

FOIB- 

EMI 

$F026 

negativ, Argunent ver im 4. Quadranten 

FOID- 

Lim 

$16 

Vorzeichen-Flag für TAN-Routine 

FOIF- 

IDR 

#$EF 

negativ, da cos im 2. und 3. Quadranten negativ ist 

F021- 

siSa 

$16 


F023- 

JSR 

$EED0 

FACl = -EACl 

F026- 

um 

#$70 

Zeiger auf Konstante 0.25 

F028- 

LDY 

#$F0 


F02A- 

JSR 

$E7BE 

FACl = EACl + 0.25 

F02D- 

PIA 


Bit7=0 falls Argument im 1. Quadranten 

F02E- 

BPL 

$F033 

Vorzeichen nicht wechseln 

F030- 

JSR 

$EED0 

FACl = -EACl 

F033- 

um 

#$75 

Zeiger auf Tabelle mit Polyncmkoeffizienten 

F035- 

LDY 

#$F0 

(diese betragen ungefähr +-(2*Pi)'k / k!, k=l,3,... ,11) 

F037- 

JMP 

$EF5C 

Polynon auswerten, fertig 

Äpplesoft-Funktion T?VN 


F03a- 

JSR 

$EB21' 

FACl nach FAC3 übertragen 

F03D- 

um 

#$00 


F03F- 

STA 

^16 

Vorzeichen-Flag auf "+" setzen 

F041- 

JSR 

$EFF1 

FAC3 = EACl; FACl = SIN(FACl) 

F044- 

I£K 

,#$8A 

Zeiger auf FAC5 

F046- 

IDY 

#$00 


F048- 

JSR 

$EFE7 ® 

FACl gerundet nach FAC5 übertragen 

F04B- 

um 

#$93 

Zeiger auf FAC3 (normiertes Argument) 

F04I>- 

LDY 

#$00 


F04F- 

JSR 

$ERF9 ■ 

FAC3 nach FACl übertragen 

F052- 

um 

#$00 


F054- 

STA 

$A2 

Vorzeichen von EACl “+" setzen 

F056- 

LDA 

$16 

Vorzeichen-Flag (enthält Vorzeichen für Cos-Funktion) 

F058- 

JSR 

$F062 

FACl = cos(FACl) 

F05B- 

um 

#$8A 

Zeiger auf FAC5 

F05D- 

IDY 

#$00 

) 

F05F- 

JMP 

$EA66 

FACl = EAC5 / FACl |(d.h. sinx / oosx = tanx) 

F062- 

PHA 


Vorzeichen-Flag retten 

F063- 

JMP 

$F023 

FACl = sin(0.25 - FACl) mit normierten Argumenten 

F066- 

81 49 

OF DA A2 

FP-Konstante Pi/2 

F06B- 

83 49 

OF DA A2 

FP-Konstante 2 * Pi 

F070- 

7F 00 

00 00 00 

FP-Kaistante 0.25 

Reihenkoeffizienten für 

SIN,/ OOS / TAN 

F075- 

05 


Poiynongrad 

F076- 

84 E6 

lA 2D IB 

-14.3813907 
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F07B- 

86 28 

07 FB F8 

42.0077971 

F080- 

87 99 

68 89 01 

-76.7041703 

F085- 

87 23 

35 DF El 

81.6052237 

F08A- 

86 A5 

5D E7 28 

-41.3417021 

F08F- 

83 49 

OF DA A2 

2 * Pi 

Äscii für "MICROSOFT!", 

jedoch Bits 0,1,2 invertiert 

F094- 

A6 D3 CI C8 D4 C8 D5 C4 CE CA 

ÄTOlesoft-Funktion KTN 


F09E- 

LDA 

$A2 

Vorzeichen von FACl retten 

FOAO- 

PHA 



FOAl- 

BPL 

$F0A6 

positiv 

F0A3- 

JSR 

$EEDO 

sonst FACl = -EACl, d.h. Betrag vom Argument 

F0A6- 

im 

S9D 

Exponent von FACl 

F0A8- 

HäA 


retten 

F0A9- 

CMP 

#$81 

vergleichen 

FOAB- 

BOC 

$F0B4 

FACl < 1 

FOAD- 

LDA 

#$13 

sonst Kehrwert bilden; Zeiger auf Kaistante 1 holen 

FOAF- 

IDY 

#$E9 


FOBl- 

JSR 

$EA66 ■ 

FACl = 1 / FACl 

F0B4- 

LDA 

#$CE 

Zeiger auf Tabelle mit Reihenkoeffizienten 

F0B6- 

LDY 

#$F0 


F0B8- 

JSR 

$EF5C 

Polynom auswerten 

FOBB- 

PLA 


gatierkter Exponent 

FOBC- 

CMP 

#$81 

wieder vergleichen 

FOHE- 

BCC 

$F0C7 

Argument war < 1 

FOCO- 

LDA 

#$66 

sonst Ergetais korrigieren: 

F0C2- 

LDY 

#$F0 

Zeiger auf Konstante Pi / 2 

F0C4- 

JSR 

$E7A7 

FACl = Pi/2 - FACl 

F0C7- 

PLA 


gemerktes Vbrzeichen 

F0C8- 

BPL 

$FOCD 

positiv, fertig 

FOCA- 

OMP 

$eedo 

FACl = -FACl 

FOCD- 

RTS 



Reihenkoeffizienten für 

ATN 

FOCE- 

OB 


Polyncragrad = 11 

FOCF- 

76 B3 

83 BD D3 

-6.84793912 E-4 

F0D4- 

79 lE 

F4 A6 F5 

4.85094216 E-3 

F0D9- 

TB 83 

FC BO 10 

-1.61117018 B-2 

FODE- 

7C OC 

IF 67 CA 

3.42096380 E-2 

F0E3- 

7C DE 

53 CB CI 

-5.42791328 E-2 

F0E8- 

7D 14 

64 70 4C 

7.24571965 B-2 

FOED- 

7D B7 

EA 51 7A 

-8.98023954 E-2 

F0F2- 

7D 63 

30 88 7E 

1.10932413 E-1 

F0F7- 

7E 92 

44 99 3A 

-1.42839808 E-1 

FOFC- 

7E 4C 

OC 91 C7 

1.99999120 B-1 

FlOl- 

7F AA 

AA AA 13 

-3.33333157 E-1 

F106- 

81 00 

00 00 00 

1.0 

Kcpie der CHRGET-Routine 

0: C=0 

falls 

Ziffer; Z=1 falls Kode = 00 oder 3A 

FlOB- 

BC 

$B8 

CHRGET-Zeiger erhöhen 

FlOD- 

BNE 

$F111 


FlOF- 

INC 

$B9 


FUl- 

um 

$EA60 

Dunmy Adresse, später steht dort der CHRGEJT-Zeiger 

FU4- 

CMP 

#$3A 

Ascii für 
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■4 


F116- 

BCS 

$F122 

Zeichen hinter den Ziffern 

(also keine Ziffer) 

F118- 

CMP 

#$20 

Ascii für Leerzeichen 


FllA- 

BBQ 

$F10B 

Leerzeichen ignorieren, nächstes Zeichen holen 

Flic- 

SEC 




FllD- 

SBC 

#$30 



FllF- 

SEC 




F120- 

SBC 

#$D0 

damit C=1 falls Kode < 30 

(also falls keine Ziffer) 

F122- 

Ra?s 





F123- 80 4F C7 52 58 FP-Konstante 0.811635157 


Kaltstart-Routine 


F128- 

lEK 

#$EF 

i 

f 

F12A- 

STX 

$76 

Direkt-Modus setzen 

F12C- 

LDX 

#$FB 


F12E- 

■ECS 


Stack initialisieren 

F12F- 

IDA 

#$28 

Adresse der Kaltstart-Routine 

F131- 

LDY 

#$F1 


F133- 

STA 

$01 

nach $0001 

F135- 

STY 

$02 


F137- 

STA 

$04 

und $0004 

F139- 

STY 

$05 


F13B- 

JSR 

$F273 

KMAL durchführen (normale Bildschirmausgabe) 

F13E- 

IXIA 

#$4C 

Assembler-Kode für JMP absolut 

F140- 

STA 

$00 

vor die Sprungadressen in der Zeropage setzen 

F142- 

STA 

$03 


F144- 

STA 

$90 


F146- 

STA 

$0A 


F148- 

LDA 

#$99 

Zeiger auf ILLEGAL QUANTITY ERROR -Ausgabe 

F14A- 

LDY 

#$E1 


^F14C- 

STA 

$0B 

als (BR-Adresse eintragen 

F14E- 

STY 

$0C 


F150- 

IDX 

#$1C 

als Zähler 

F152- 

LDA 

$F10A,X 

CHRGET-Routine und 'Zufallszahl' in Zeropage kopieren 

F155- 

STA 

$B0,X 


F157- 

STX 

$F1 

bei letzten Durchgang X=1 als SPEED-Flag eintragen 

F159- 

DEX 



F15A- 

BNE 

$F152 

weiter in Schleife 

F15C- 

STX 

$F2 

TSACE-Flag löschen 

F15E1- 

OXA 



F15F- 

STA 

$A4 

Hilfsregister löschen 

F161- 

STA 

$54 

Adresse des obersten Deskriptors auf Deskr.-Stack 

F163- 

PHA 


0 auf Stack 

F164- 

LDA 

#$03 


F166- 

STA 

$8F 

Deskriptor-Länge für Garbage Collection vorgeben 

F168- 

JSR 

$DAFB 

CR ausgeben 

F16B- 

LDA 

#$01 


F16D- 

STA 

$01FD 

1 in Stack eintragen (oberhalb der 0 von $P163) 

F170- 

STA 

$01PC 


F173- 

LDX 

#$55 

als Zeiger für Deskriptoren-Stack auf dessen Anfang 

F175- 

STX 

$52 

eintragen 

F177- 

IDA 

#$00 

Zeiger für RAM-Test auf $0800 setzen 

F179- 

LDY 

#$08 


F17B- 

STA 

$50 


F17D- 

STY 

$51 


höchste verfügbare RAM-Adresse suchen 

F17F- 

IDY 

#$00 


F181- 

INC 

$51 

Zeiger erhöhen 

F183- 

LDA 

($50),Y 

$0900, $0A00, etc. holen 
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F185- 

IDR 

#$HF 

invertieren 

F187- 

STA 

($50),Y 

und in Speicherzelle eintragen 

F189- 

CMP 

<$50),Y 

prüfen, ob Inhalt verändert wurde 

F18B- 

BNE 

$F195 

nein, RAM-Ende gefunden 

F18I>- 

BDR 

#$FF 

nochnals invertieren 

F18P- 

STA 

($50),Y 

€xneut eintragen 

F191- 

CMP 

($50),Y 

und vergleichen 

F193- 

BBQ 

$F181 

Inhalt wurde wieder verändert, noch nicht RAM-Ende 

F195- 

WH 

$50 

Zeiger auf gefundenes RAM-Ende 

F197- 

im 

$51 


F199- 

AND 

#$F0 

auf Ende des letzten 4K-Blocks setzen 

F19B- 

sry 

$73 

als EMEM, d.h. höchste benutzte RAM-Adresse eintragen 

F19D- 

STA 

$74 


F19F- 

STY 

$6F 

und als Anfang des Stringbereichs Oceine Strings da) 

FlAl- 

STA 

$70 


F1A3- 

LDX 

#$00 

Zeiger auf $0800 

F1A5- 

iDy 

#$08 


F1A7- 

STX 

$67 

als vorläufiger Anfang für Programmtext 

F1A9- 

STY 

$68 


FlAB- 

im 

#$00 


FlÄD- 

STY 

$D6 

Autostart-Flag löschen 

FlAF- 

TYA 



FIBO- 

STA 

($67),Y 

$0800 mit 0 besetzen 

F1B2- 

INC 

$67 

Programn-Anfangszeiger auf $0801 erhcäien 

F1B4- 

BNE 

$F1B8 


F1B6- 

INC 

$68 


F1B8- 

LDA 

$67 

Progranm-Anfangszeiger 

FIBA- 

IDY 

$68 


FIBC- 

JSR 

$D3E3 

unterhalb HIMEM? Falls nein —> (OT OP MEMORY ERROR 

FIEF- 

JSR 

$D64B 

NEW, CaiEAR, Stackinitialisierung durchführen 

F1C2- 

LDA 

#$3A 

Zeiger auf String-Druckroutine 

P1C4- 

IDY 

#$DB 


F1C6- 

STA 

$04 

in JMP-Befehl ab $0003 eintragen 

F1C8- 

STY 

$05 


FICA- 

LDA 

#$3C 

Zeiger auf Wärmstart 

Ficr- 

IDY 

#$D4 


FICE- 

STA 

$01 

in JMP-Befehl ab $0000 eintragen 

FIDO- 

STY 

$02 


F1D2- 

JMP 

($0001) 

indirekter Sprung zu Warmstart 

Applesoft-Routine CMli 


F1D5- 

JSR 

$DD67 

numerischen Term auswerten (Sprungadresse) 

F1D8- 

JSR 

$E752 

FACl in Integer (in 50,51) anwandeln 

FIDB- 

JMP 

($0050) 

Sprung zur Assembler-Routine 

Applesoft-Routine DJ# 


FIDE- 

JSR 

$E6F8 

1-Byta-Integer aus Programmtext holen —> x 

FlEl- 

OKA 



F1E2- 

JMP 

$FE8B 

Mcxiitor-Routine IN# definiert Eingabekanal 

Applesoft-Routine PR# 


F1E5- 

jai 

$E6F8 

1-Byte-Integer aus Programntext holen —> X 

F1E8- 

TXA 



F1E9- 

JMP 

$FE95 

Monitor-Routine PR# definiert Ausgabelcanal 


Plot-Parameter für LcRes-Grafik holen 

0: 1. Paraneter in FO; 2. Parameter in 2C = 2D = X 










FIEC- 

JER 

$E6F8 


l-Byte-Integer aus Programmtext holen —> X 

fiep- 

CPX 

#$30 


mit 48 vergleichen 

FlFl- 

BCS 

$F206 


auf jeden Fall zu groß, —> ILLEGAL QUANTITY BRRDR 

P1F3- 

STX 

$F0 


sonst 1. Parameter eintragen 

F1F5- 

IDh 

#$2C 


Ascii für Kcmma 

F1F7- 

JSR 

$DF1C0 


muß folgen, sonst SYNTAX ERROR i 

FIFA- 

JSR 

$E6F8 


1-Byte-Integer aus Programmtext 'holen —> X 

FIFD- 

CPX 

#$30 


vergleichen mit 48 

FIFF- 

BCS 

$F206 


auf jeden Fall zu groß, —> TT.T.FGAT. QCANTITY ERROR 

F201- 

SEC 

$2C 


sonst 2. Parameter eintragen 

F203- 

STX 

$2D 



F205- 

KTS 




F206- 

JMP 

$E199 


ILLEGAL QUANTITY ERROR ausgeben 

hole Parameter für 

HUN 

/ VLIN 

0: Parameter 

in FO, 

2C = 

2D, X; dabei FO < 2C/2D 

F209- 

JSR 

$F1EC 


hole 2 Paraireter aus Progranmtext —> F0,2C=2D=X 

F20C- 

C3>X 

$F0 


ParanBter vergleichen 

F20E- 

BCS 

$F218 


Paraneter in FO kleiner, ok 

F210- 

im 

$F0 


sonst vertauschen 

F212- 

STA 

$2C 



F214- 

STA 

$2D 



F216- 

STX 

$F0 



F218- 

ICA 

#$C5 


Token für AT 

F21A- 

JSR 

$DBC0 


muß folgen, sonst SYNTAX ERROR 

F21D- 

JSR 

$E6F8 


3. Parameter aus Programmtext holen 

F220- 

CPX 

#$30 


mit 48 vergleichen 

F222- 

BCS 

$F206 


ZU groß, —> ILLEGAL QUANTITY ERROR 

F224- 

RTS 





J^lesoft-Routine PLOT 


F225- 

JSR 

$F1EG 

PIOT-Paraiteter aus Progranmtext holen 

F228- 

TXA 


2. Paraireter = Y-Koordinate (Wert schon geprüft) 

F229- 

LDY 

$F0 

1. Paraireter = X-Koordinate (muß < 40 sein) 

F22B- 

CPY 

#$28 

vergleichen 

F22D- 

BCS 

$F206 

zu groß, —> ILLEGAL QUANTITY ERROR 

F22F- 

OMP 

$F800 

sonst zur Monitor-Routine PLOT 

Applesoft-Routine HLIN 


F232- 

JSR 

$F209 

hole 3 Parameter aus Programmtext 

F235- 

TXA 


3. Paraneter = Y-Koordinate 

F236- 

LDY 

$2C 

X-Koordinate des rechten Endes der Linie 

F238- 

CPY 

#$28 

muß kleiner 40 sein 

F23A- 

BCS 

$F206 

zu groß, —> ILLEGAL QUANTITY ERROR 

X-Koordinate des linken Endes (sicher < rechtes Ende 

F23C- 

LDY 

$F0 

F23E- 

JMP 

$F819 

zur Monitor-Routine HLINE 


i^lesoft-Routine VLIN 


F241- 

JSR 

$F209 

hole 3 Parameter aus Progranmtext 

F244- 

TXA 


3. Parameter = X-Koordinate 

F245- 

TAY 


nach Y, muß kleiner als 40 sein 

F246- 

CPY 

#$28 

vergleichen 

F248- 

BCS 

$F206 

zu groß, —> ILLEGAL QUANTITY ERROR 

F24A- 

IDA 

$F0 

Y-Koord. des oberen Linienendes (2C=2D unteres Finde) 

F24C- 

OMP 

$F828 

zur Monitor-Routine VLINE 
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Applesoft-Routine CDLOR 


F24F- 

JSR 

$E6F8 


1-Byte-Inbeger aus Programmtext holen —> x 

F252- 

TXA 



OOLOR-Wert 

F253- 

OMP 

$F864 


zur Monitor-Routine SETCOL 

l^lesoft-Routine VTAB 


F256- 

JSR 

$E6F8 


1-Byte-Integer aus Programmtext holen —> X 

F259- 

DEX 



minus 1, da oberste Zeile den Vtert 0 haben soll 

F25A- 

TXA 



Bildschirmzeile, muß kleiner 24 sein 

F25B- 

CMP 

#S18 


vergleichen 

P25D- 

BCS 

$F206 


zu groß, —> ILLEGAL QUANTm ERROR 

F25F- 

JMP 

$FB5B 


zur Mcnitor-Routine TABV 

i^lesoft-Routine SPEED 


F262- 

JSR 

$E6F8 


1-Byte-Integer aus Programmtext holen —> X 

F265- 

OKA 



0 = langsam, 255 = schnell 

F266- 

BDR 

#$FF 


invertieren 

F268- 

TftX 




F269- 

INX 



plus 1 , ergibt VffilT-Paraneter 

F26A- 

sox 

$F1 


ins SPEED-Flag eintragen (1 = maximal schnell) 

F26C- 

RIS 




Applesoft-Routinen 

TRAGE / fDTRACE 

F26D- 

SBC 



Einsprung für IRACE 

F26E- 

BOC 

$F288 


—> F26F- CLC , Einsprung für NOTRACE 

F270- 

RDR 

$F2 


C —> Bit7 vom TRACE-Flag 

F272- 

RTS 




i^lesoft-Routinen 

NORMAL / INVERSE 

F273- 

IDA 

#$FF 


Einsprung für NORMAL, hole NORMAL-Maske 

F275- 


$F279 


ininer springen 

F277- 

IDA 

#$3F 


Einsprung für INVERSE, hole INVERSE-Maske 

F279- 

IDX 

#$00 


um das FIASH-Flag zu löschen 

F27B- 

STA 

$32 


INVERSE-Flag eintragen 

F27D- 

STX 

$F3 


FIASH-Flag eintragen 

F27F- 

RTS 





J^lesoft-Routine FLASH 
F280- liÄ #$7F 

F282- LDX #$40 

F284- BNE $F27B 


FIASH-Maske holen, kaimt ins INVERSE-Flag 
um das FIASH-Flag zu setzen 
Flags eintragen 


Applesoft-Routine HMEM: 


F286- 

JSR 

$DD67 

nunerischen Ausdruck auswerten —> FACl 

F289- 

JSR 

$E752 

FACl in Integer (in 50,51) umwandeln 

F28C- 

IDA 

$50 

50,51 mit Feldvariablen-Ende +1 vergleichen 

F28E- 

CMP 

$6D 


F290- 

IDA 

$51 


F292- 

SBC 

$6E 


F294- 

BCS 

$F299 

liegt nicht darunter, ok. 

F296- 

JMP 

$0410 

sonst SYNTAX ERROR 

F299- 

IDA 

$50 


F29B- 

STA 

$73 

HIMEM:-Adresse eintragen 

F29D- 

STA 

$6F 

als Anfang des Stringbereichs eintragen 
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F29F- 

LDA 

$51 

KBytes eintragen 

F2A1- 

STA 

$74 


F2A3- 

sa?A 

$70 

) 

F2A5- 

RTS 



Applesoft-Routine I£MEM 


F2A6- 

JSR 

$DD67 

nurterischen Ausdruck auswerten —> FACl 

F2A9- 

JSR 

$E752 

FACl in Integer (in 50,51) umwandeln 

F2äC- 

LDA 

$50 

50,51 mit HMEM-Wert vergleichen 

F2RE- 

CMP 

$73 


F2B0- 

LDA 

$51 


F2B2- 

SBC- 

$74 


F2B4- 

BGS 

$F296 

liegt nicht darunter, —> SOTITÄX ERROR 

F2B6- 

im 

$50 

50,51 mit bisherigem ICMEM-Wert vergleichen 

F2B8- 

CMP 

$69 


F2BA- 

LDA 

$51 


F2BC- 

SBC 

$6A 


F2BE- 

BCC 

$F296 

liegt darunter, —> S5(WEAX ERROR 

F2C0- 

LDA 

$50 

neuen ICMEM-Wert eintragen 

F2C2- 

STA 

$69 


F2C4- 

LDA 

$51 

- 

F2C6- 

STA 

$6A 


F2C8- 

OMP 

$D66C 

CLEÄR und Stackinitialisierung durchführen 

Afplesoft-Routine ONERR 


F2CB- 

ILA 

#$AB 

Token für GOTO 

F2CD- 

JSR 

$DEC0 

muß folgen 

F2D0- 

ldaX 

$B8 

CHRGET-Zeiger 

F2D2- 

STA 

$F4 

als Adresse des gültigen CMERR-Statements 

F2D4- 

LDA 

$B9 


F2D6- 

STA 

$F5 


F2D8- 

SBC 



F2D9- 

RQR 

$D8 

C=1 —> Bit7 des CSUERR-Flags, d.h. ONERR aktivieren 

F2DB- 

LDA 

$75 

mcmentane Zeilennummer 

F2DD- 

STA 

$F6 

als Zeilennuimier des gültigen ONERR-Statements 

F2DF- 

LDA 

$76 


F2E1- 

STA 

$F7 


F2E3- 

JSR 

$D9A6 

suche nächste Programmzeile 

F2E6- 

OMP 

$D998 

CHRGEir-Zeiger setzen, weiter im Programm 


CKERR GOTO- Fehlerauswertung 
I: X althält Fehlerart-Kode 


F2E9- 

STX 

$DE 

Fehlerart-Kode merken 

F2EB- 

LDX 

$P8 

Zwischenspeicher für Stackpointer 

F2ED- 

STX 

$DP 

Stackpointer retten 

F2EF- 

LDA 

$75 

nmentane Zeilennuniner für RESIME retten 

F2F1- 

STA 

$DA 


F2F3- 

LDA 

$76 


F2F5- 

STA 

$DB 


F2F7- 

LDA 

$79 

Zeiger auf Befehl, im (fern der Fehler auftrat 

F2F9- 

STA 

$DC 

für RESIMS retten 

F2FB- 

LDA 

$7A 


F2FD- 

STA 

$DD 


F2FF- 

LDA 

$F4 

Zeiger auf ONERR-Statanent 

F301- 

STA 

$B8 

in CJJRGET-Zeiger übertragen 

F303- 

LDA 

$F5 


F305- 

STA 

$B9 


F307- 

LDA 

$F6 

Zeilennunmer des ONERR-Stataments 
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F309- 

STA 

$75 

als aktuelle Zeilennunmer ift>ernehmen 

F30B- 

LDA 

$F7 


F30D- 

STA 

$76 


P30F- 

JSR 

$00B7 

Zeichen holen und 

F312- 

JSR 

$D93E 

GOTO-Routine durchführen 

F315- 

OMP 

$D7D2 

weiter im prograram mit Fehlerbehandlung 

Acplesoft-Routine RESCME 

F318- 

IDA 

$DA 

Zeilennunmer, in der der Fehler auftrat 

F31A- 

STA 

$75 

wieder als aktuelle Zeilennummer übernehmen 

F31C- 

LDA 

$DB 


F31E- 

STA 

$76 


F320- 

LDA 

$DC 

Zeiger auf den Befehl, in dem der Fehler auftrat 

P322- 

STA 

$B8 

wieder als CHBGBT-Zeiger übernehmen 

F324- 

LDA 

$DD 


F326- 

STA 

$B9 


F328- 

LEK 

$DF 

geretteten Stackpointer 

F32A- 

TXS 


wieder einsetzen 

F32B- 

JMP 

$D7D2 

weiter im Programm mit dem unterbrochenen Befehl 

F32E- 

JMP 

$DEC9 

SYNTAX ERROR ausgeben 

Arxjlesoft-Routine lEL 


F331- 

BCS 

$F32E 

erstes Zeichen hinter DEL keine Ziffer -> SYNTAX ERROR 

F333- 

LEK 

$äf 

Prograumtext-Etde +1 

F335- 

SEX 

$69 

als Anfang der einfachen Variablen übernehmen 

F337- 

DDX 

$B0 


F339- 

STX 

$6A 


F33B- 

JSR 

$DA0C 

Zeilennunmer aus Progranmtext holen —> 50,51 

F33E- 

JSR 

$D61A 

angegebene Zeile suchen 

F341- 

IDA 

$9B 

Zeiger auf angegebene Zeile (vgl. $D61A) 

F343- 

STA 

$60 

retten 

F345- 

IDA 

$9C 


F347- 

STA 

$61 


F349- 

LDA 

#$2C 

Ascii für Kemna 

F34B- 

JSR 

$DEC0 

muß folgen, sonst SYNTAX ERROR 

F34E- 

JSR 

$DA0C 

2. zeilennunmer aus Progranmtext holen —> 50,51 

F351- 

INC 

$50 

erhöhen, damit angegebene Zeile noch gelöscht wird 

F353- 

BNE 

$F357 


F355- 

INC 

$51 


F357- 

JSR 

$D61A 

Zeile hinter der angegebenen Zeile suchen 

F35A- 

LDA 

$9B 

Zeiger auf diese Zeile 

F35C- 

CMP 

$60 

mit Zeiger auf die erste zu löschende Zeile vergleichen 

F35E- 

LDA 

$9C 


F360- 

SBC 

$61 


F362- 

BCS 

$F365 

liegt hinter dieser, angegebenen Bereich löschen 

F364- 

RTS 


sonst gesamten Befehl ignorieren 

angegebenen Bereich löschen 

F365- 

LDY 

#$00 


F367- 

LDA 

($9B),Y 

ein Zeichen von hinten holen 

F369- 

STA 

($60),Y 

nach vorne übertragen (überschreibt Löschbereich) 

F36B- 

INC 

$9B 

Zeiger auf Quellbereich erhöhen 

F36D- 

BNE 

$F371 


F36F- 

BSC 

$9C 


F371- 

INC 

$60 

Zeiger auf Zielbereich erhöhen 

F373- 

BNE 

$F377 


F375- 

INC 

$61 


F377- 

EDA 

$69 

ursprüngliches Progranmtext-Ende +1 
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F379- 

CMP 

$9B 

mit Zeiger auf Quellbereich vergleichen 

F37B- 

LDA 

$6A 


F37D- 

SBC 

$9C 


F37F- 

BCS 

$F367 

Erde noch nicht erreicht, vreiter verschieben 

F381- 

IIK 

$61 

neues prograirmteict-Ende +2 

F383- 

IDY 

$60 


F385- 

BNE 

$F388 

um 1 verringern 

F387- 

F388- 

F389- 

DEX 

DEY 

STX 

$6A 

neues Prograitmtext-Eäde +1 eintragen 

F38B- 

STY 

$69 


F38D- 

JMP 

$D4F2 

CLEAR durchführen, Linkadressen berechen, Warmstart 


J^lesoft-Routine ® 


F390- 

LDA 

$C056 

setze IDRES , 
setze MIX 

- 


F393- 

LDA 

$C053 



F396- 

JMP 

$FB40 

zur Monitor-Routine SETGR 


_ 


l^lesoft-Routine TEXT 


F399- 

LDA 

$C054 

setze PAGEl 

F39C- 

OMP 

$FB39 

zur Monitor-Routine SETTEXT 

AEplesoft-Routine ' STORE 


F39F- 

JSR 

$F7D9 

angegebene Feldvariable suchen, Monitor-Register setzen 

F3A2- 

LDY 

#$03 

Zeiger in Feldvariable (9B,9C zeigt auf Variablenkopf) 

F3A4- 

IBA 

($9B),Y 

Länge der Feldvariable holen 

F3A6- 

TAX 


HByte 

F3A7- 

DEY 



F3A8- 

IBA 

($9B),Y 

LByte 

F3ÄA- 

SBC 

#$01 

abzüglich 1 

F3SC- 

BCS 

$F3AF 


F3AE- 

DEX 



F3AF- 

STA 

$50 

in 50,51 eintragen 

F3B1- 

STX 

$51 


F3B3- 

JSR 

$EBCD 

Monitor-Routine WRITE speichert Feldlänge aufs Band 

F3B6- 

JSR 

$F7BC 

Monitor-Register mit Feldanfang / Feldende setzen 

F3B9- 

JMP 

$FBCD 

Monitor-Routine TOITE speichert Feldvariable aufs Band 


Applesoft-Routine EECAEL 


F3BC- 

JSR 

$F7D9 

angegebene Feldvariable suchen, Monitor-Register setzen 

F3BP- 

JSR 

$FEFD 

Monitor-Routine READ liest Feldlänge nach 50,51 

F3C2- 

IDY 

#$02 


F3C4- 

LDA 

($9B),Y 

Länge der angegebenen Feldvariable 

F3C6- 

CMP 

$50 

mit der auf Band gefundenen vergleichen 

F3C8- 

INY 



F3C9- 

LDA. 

($9B),Y 

Hbytes vergleichen 

F3CB- 

SBC 

$51 


F3CD- 

BCS 

$F3D2 

dimensionierte Feldlänge >= Datenlänge auf Band 

F3CF- 

JMP 

$D410 

sonst OOT OF MEMORY ERROR 

F3D2- 

JSR 

$F7BC 

Monitor-Register mit Feldanfang / Feldende setzen 

F3D5- 

JMP 

$FEFD 

Monitor-Routine READ liest Feldvariable vom Band 


ROOTININ FÜR HXHAUFLÖSENDE GRAFIK 


Applesoft-Routine H3R2 
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F3D8- 

BIT 

$C055 

setze PAGE2 

F3DB- 

BIT 

$C052 

setze NOMIX 

F3DE- 

IBA 

#$40 

Flag für Page 2 setzen 

F3E0- 

BNE 

$F3EA 

veiter bei HGR 

Applesoft-Routine H3R 


F3E2- 

IBA 

#$20 

Flag für Page 1 setzen 

F3E4- 

BIT 

$C054 

setze PAGEl 

F3E7- 

BIT 

$C053 

setze MIX 

F3EA- 

STA 

$E6 

Flag für HiRes-Page eintragen 

F3B3- 

IBA 

$C057 

setze HIRES 

F3EF- 

IBA 

$C050 

setze GRAPHICS 

F3F2- 

IBA 

#$00 

Fartmaske für schwarz 

aktuelle HiRes-Page einfärben 

F3F4- 

STA 

$1C 

Farbtiaske nerken 

F3F6- 

IBA 

$E6 

Flag für aktuelle HiRes-Page 

F3F8- 

STA 

$1B 

als Adresse für Page-Anfang, HByte 

F3FA- 

LDY 

#$00 

LByte 

F3FC- 

STY 

$1A 


F3FE- 

IBA 

$1C 

Farbmaske 

F400- 

STA 

($1A),Y 

in Speicherzelle eintragen 

F402- 

JSR 

$F47E 

Maske invertieren, falls alternierende Bitfolge 

F405- 

INY 


Zeiger erhöhen 

F406- 

BNE 

$F3FE 


F408- 

INC 

$1B 


F40A- 

IBA 

$1B 


F40C- 

AND 

#$1F 

ergibt 0, falls Page-Ende erreicht 

F40E- 

BNE 

$F3FE 

Page noch weiter füllen 

F410- 

RTS 




RAM-Adresse aus XX-Koordinaten berechne) 

I: X-Koordinate in X,Y; Y-Koordinate im Aocu 
O: KSM-Adresse des Zeilenanfangs in 26,27 

Position in der Zeile in E5 = Y; Bitnaske in 30 


F411- 

STA 

$E2 

Y-Koordinate nerken 

F413- 

STX 

$E0 

X-Koordinate nerken 

F415- 

STY 

$E1 

Block Textzeile Grafikzeile 

F417- 

PHA 


Bezeichnung von Bit7-0; Bl,BO, T2,T1,T0, G2,G1,G0 

F418- 

AND 

#$C0 

Bits 6 und 7 herausholen 

F41A- 

STA 

$26 

ergibt Blocknumner x 64 (Block bedeutet Page-Drittel) 

F41C- 

ISR 



F41D- 

ISR 


ergibt Blocknummer x 16 

F41E- 

ORA 

$26 

plus Blocknummer x 64 ergilat Blodoiuramer x 80 

F420- 

STA 

$26 

eintragen 

F422- 

ELA 


Y-Kbordinate (vgl. Info bei $F417) 

F423- 

STA 

$27 

eintragen 

F425- 

ASL 



F426- 

ASL 


damit Textzeile linksbündig (T2 in Bit 7) 

F427- 

ASL 


T2 —> C 

F428- 

HOL 

$27 

C —> BitO von 27, übrige Bits hochschieben 

F42A- 

ASL 


TI —> C 

F42B- 

RDL 

$27 

C —> BitO VC«) 27, übrige Bits hochschieben 

F42D- 

ASL 


TO ~> C 

F42E- 

RDR 

$26 

C —> Bit7 ergibt in 26: TO (Block x40) 000 

F430- 

IBA 

$27 

mcmentaner Inhalt in 27: T2 TI TO G2 Gl GO T2 TI 

F432- 

AND 

#$1F 

lösche Bits 5-7 

F434- 

CRA 

$E6 

setze Page-Flag dafür ein 

F436- 

STA 

$27 

ergibt; TO Page G2 Gl GO T2 TI 

F438- 

TXA 


X-Koordinate IJBYte 
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F439- 

CPY 

#$00 

HByte mit 0 vergleichen 

F43B- 

BEQ 

$F442 

X-Koordinate < 256 

F43D- 

LDY 

#$23 

sonst Position mit 35 vorbesetzen (d.h. 36. Spalte) 

F43F- 

ADC 

#$04 

LByte korrigieren, da 36 x 7 = 252 = 256 - 4 

F441- 

INY 



F442- 

SBC 

#$07 

Division durch 7, Y als Zähler 

F444- 

BCS 

$F441 

weiter 

F446- 

STY 

$E5 

Spalte (d.h. Byteposition) eintragen 

F448- 

Tax 


= Bitposition im letzen Byte -7 (256 - 7 = 249) 

F449- 

LDA 

$F4B9,X 

d.h. $F5B2 + Bitposition, ergibt Bitmaske 

F44C- 

STA 

$30 

eintragen 

F44E- 

TYA 


Spalte 

F44F- 

ISR 


BitO —> C, gesetzt falls ungerade Spalte 

F450- 

IDA 

$E4 

Farhnaske 

F452- 

STA 

$1C 

übertragen 

F454- 

BCS 

$F47E 

ungerade Spalte, Maske invertieren falls alternierend 

F456- 

KTS 




einzelnen Punkt setzen t 

I: Koordinaten in A,X,Y 


F457- 

JSR 

$F411 

RAM-Adresse berechnen 

F45A- 

LEÄ 

$1C 

Farbmaske 

F45C- 

EOR 

($26),Y 

mit Speicherzelle verlmüpfen 

F45E- 

AND 

$30 

Bitmaske holt Bit heraus 

F460- 

BDR 

($26),Y 

damit Bit aus Farhrnaske kopiert ( 

F462- 

STA 

($26),Y 

in Speicherzelle eintragen 

F464- 

RTS 



RAM-Adresse 

für linken oder rechten Nachbarpunkt 

F465- 

BPL 

$F48A 

Bit7=0, Adresse für rechten Nachbarpunkt berechnen 

linker Nachbarpunkt 


F467- 

LDA 

$30 

Bitmaske, Bit7=1 

F469- 

LSR 


nach links schieben (LSR wegen gespiegelter Darst.: 

F46A- 

BCS 

$F471 

war Randbit, neuer Punkt im nächsten Byte 

F46C- 

iDR 

#$C0 

Bit7 setzen, Bit6 löschen 

F46E- 

STA 

$30 

neue Bitmaske eintragen 

F470- 

RTS 



F471- 

DEY 


Spaltenindex auf linke Nachbarspalte 

F472- 

BPL 

$F476 

linker Bildschirmrand nicht erreicht, ok. 

F474- 

LDY 

#$27 

sonst veiter in Spalte 39 (rechter Bildschirmrand) 

F476- 

ina 

#$C0 

Bitmaske für Bit6, Bit7=1 wie immer 

F478- 

STA 

$30 

nexoe Bitmaske eintragen 

F47A- 

STY 

$E5 

neuen Spaltenindex eintragen 

Fartmaske invertieren. 

falls alternierende Bitfolge 

F.47C- 

LDA 

$1C 

Fartmaske 

F47E- 

ASL 


verschieben 

F47F- 

CMP 

#$C0 

Bits 5 und 6 prüfen 

F481- 

BPL 

$F489 

Bit5 = Bit6, alterniert nicht —> nicht invertieren 

F483- 

IDA 

$1C 

sonst Fartmaske 

F485- 

H3R 

#$7F 

invertieren 

F487- 

STA 

$1C 

neue Fartmaske eintragen 

F489- 

RTS 



rechter 

Nachbarpunkt 


F48A- 

IDA 

$30 

Bitmaske 

F48C- 

ASL 


nach rechts schieben (ASL wegen gespiegelter Darst.: 

F48D- 

EDR 

#$80 

Bit7 (war vorher Bit6) invertieren 
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F48F- 

EMI 

$F46E 

Bit6 vrar 0, neuer Punkt im selben Byte, fertig 

F491- 

IDA 

#$81 

Bitmaske für BitO, Bit7=l wie immer 

F493- 

HK 


Spaltenindex auf rechte Nachbarspalte setzen 

F494- 

CPY 

#$28 

rechter Bildschirmrand erreicht? 

F496- 

BCC 

$F478 

nein, dk. 

F498- 

LDY 

#$00 

sonst neuer Spaltenindex 0 (linker Bildschirmrand) 

F49A- 

BCS 

$F478 

Routine abschließai 

Punkt 

invertieren für 

XERAW 

F49C- 

OjC 



F49D- 

IDA 

$D1 

Bits 0,1,2 = aktuelle SHAPE-Anweisung 

F49F- 

AND 

#$04 

Bit2 = Plot-Flag 

F4A1- 

BBQ 

$F4C8 

Punkt nicht verändern, neuen Punkt bestimmen 

F4ä3- 

LDA 

#$7F 


F4A5- 

ÄND 

$30 

Bitmaske, Bit7=0 

F4A7- 

AND 

($26),Y 

Originalbit holen 

F4ä9- 

Hffi 

$F4C4 

Bit =1, wird nullgesetzt 

F4AB- 

DSC 

$EA 

sonst Collision Counter erhöhen 

F4AD- 

IDA 

#$7F 


F4ÄF- 

AND 

$30 

Bitmaske um Punkt zu setzen 

F4B1- 

BPL 

$F4C4 

Byte eintragen und neuen Punkt bestimmen 

Punkt 

setzen 

für ERAW 

F4B3- 

ac 



F4B4- 

IDA 

$D1 

Bits 0,1,2 = aktuelle SHAPE-Anweisung 

F4B6- 

AND 

#$04 

Bit2 = Plot-Flag 

F4B8- 

BBQ 

$F4C8 

Punkt nicht setzen, neuen Punkt bestimmen 

F4BA- 

IDA 

($26),Y 

Originalbit 

F4BC- 

BDR 

$1C 

mit Farttnaske verknüpfen 

F4BE- 

AND 

$30 

Bit herausholen 

F4C0- 

BNE 

$F4C4 

Punkt ist noch nicht gesetzt 

P4C2- 

nc 

$EA 

sonst Collision Counter erhöhen 

F4C4- 

BDR 

($26),Y 

neues Bit einfögen 

F4C6- 

STA 

<$26),Y 

Byte eintragen 

ne\ien 

Punkt 

bestimmen 

nach SHAPE-Anweisung 

F4C8- 

IDA 

$D1 

Bits 0 und 1 enthalten Zugrichtung 

F4ca- 

ADC 

$D3 

+ Quadrant entsprechend ROT-Vfert und Carry-Flag 

F40C;- 

AND 

#$03 

ergibt tatsächliche Zugrichtung 

F4CE- 

CMP 

#$02 

Bitl —> C 

F4D0- 

EDR 


C —> Bit7; BitO —> C 

F4D1- 

BCS 

$F465 

BitO war 1, d.h. Zugrichtung links oder rechts 

Nachbarpunkt über oder unter altem Punkt bestinmen 

F4D3- 

EMI 

$F505 

Bit7=1, d.h. RAM-Adresse für Punkt unterhalb bestimmen 

Punkt oberhalb bestimmen 

F4D5- 

CDC 



F4D6- 

IDA 

$27 

Adresse des Zeilenanfangs, HByte 

F4D8- 

BIT 

$F5B9 

enthält IC, d.h. Nunmer der Grafikzeile herausholen 

F4m- 

BNE 

$F4FF 

nicht oberste Grafikzeile innerhalb der Textzeile, ok 

F4a3- 

ASL 

$26 

sonst TO —> C 

F4II’- 

BCS 

$F4FB 

ungerade Textzeile, zu HByte der Adresse IC addieren 

F4E1- 

BIT 

$F4CD 

enthält 03, d.h. Nummer der geraden Textzeile holen 

F4E4- 

BEQ 

$F4EB 

oberste Textzeile im Block, weiter im Block oberhalb 

F4E6- 

ADC 

#$1F 

Textzeile 2,4 oder 6, zu HByte der Adresse IB addieren 

F4E8- 

SBC 



F4E9- 

BCS 

$F4FD 

Addition vervollstäidigen 

F4EB- 

ADC 

#$23 

zu 20 oder 40 (je nach Page) addieren, ergibt 43/63 
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F4ED- 

PHA 


merken 

neuer 

Block 



F4EE- 

um 

$26 

00 /SO / AO für Block 0/1/2 

F4F0- 

ADC 

#$B0 

BO, C=0 / 00, C=1 / 50, C=1 

F4F2- 

BCS 

$F4F6 


F4F4- 

ADC 

#$F0 


F4F6- 

som 

$26 

AO, C=1 / 00, C=1 / 50, C=1 (später 50/00/28) 

F4F8- 

PLA 


43 (63) minus 4 ergibt 3F (5F), d.h. unterste Zeile 

F4F9- 

BCS 

$F4FD 

Subtraktion durchführen, Routine abschließen 

F4FB- 

ADC 

#$1F 

C=l, also 20 addieren 

F4FD~ 

BOR 

$26 

ASL rückgängig machen, C —> Bit7 

F4FF- 

ADC 

#$EC 

minus 4 

P501- 

STA 

$27 

HByte eintragen 

F503- 

BIS 



Punkt 

unterhalb bestimmen 

F504- 

CLC 



F505- 

um 

$27 

Adresse des Zeilenanfangs, HByte 

F507- 

ADC 

#$04 

plus 4 für Grafikzeile danmter — 

F509- 

BIT 

$F5B9 

enthält IC, d.h. Nuitnier der Grafikzeile herausholen 

F50C- 

BNE 

$F501 

war nicht unterste Grafikzeile der Textzeile, ok 

F50E- 

ASL 

$26 

sonst TO —> C 

F510- 

BCC 

$F52A 

gerade Textzeile, 20 abziehen und Routine abschließen 

F512- 

ADC 

#$E0 

minus IF ergibt 21/22/23/24 bei Textzeile 1/3/5/7 

F514- 

CLC 



F515- 

BIT 

$F508 

enthält 04, d.h. Bit 2 herausholen 

F518- 

BBQ 

$F52C 

nicht unterste Textzeile im Block, ok. 

neuer 

Block 



F5lÄ- 

im 

$26 

00 / 50 / AO bei Block 0/1/2 

F51C- 

ADC 

#$50 

50, C=0 / AO, C=0 / FO, C=0 

F51E- 

EDR 

#$F0 

AO / 50 / 00 

F520- 

BEQ 

$F524 


F522- 

BOR 

#$F0 


F524- 

STA 

$26 

50 / AO / 00 

F526- 

um 

$E6 

20 bzw. 40, je nach Page 

F528- 

BCC 

$P52C 


F52A- 

ADC 

#$E0 

20 subtrahieren 

F52C- 

RDR 

$26 

ASL rückgängig machen, C —> Bit7 

F52E- 

BOC 

$F501 

Routine abschließen 

alte Koordinaten löschen 

F530- 

EHA 


Accu retten 

F531- 

um 

#$00 


F533- 

STA 

$E0 

Koordinaten löschen 

F535- 

STA 

$E1 


F537- 

STA 

$E2 


P539- 

PLA 


Accu wieder holen 

Linie 

zeichnen 


I: alte Koordinaten 

(E0,E1 / E2), neue (A,X / Y) 

Koordinatendifferenzen bestimmen 

F53A- 

PHA 


neue X-Koordinate, LByte retten 

F53B- 

SBC 



F53C- 

SBC 

$E0 

minus alte X-Koordinate, LByte 

F53E- 

PHA 


X-Differenz, L^e retten 
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F53F- 

■DCA 


F540- 

SBC 

$Ea 

F542- 

STA 

$D3 

F544- 

BCS 

$F550 

F546- 

PLA 


F547- 

BOR 

#$TI' 

F549- 

ADC 

#$01 

F54B- 

PHA 


F54C- 

LDA 

#$00 

F54E- 

SBC 

$D3 

F550- 

STA 

$D1 

F552- 

STA 

$D5 

P554- 

ELA 


F555- 

STA 

$D0 

F557- 

STA 

$D4 

F559- 

PIA 


F55A- 

STA 

$E0 

F55C- 

STX 

$E1 

F55E- 

TXÄ 


F55F- 

CDC 


F560- 

SBC 

$E2 

F562- 

BCC 

$F568 

F564- 

EDR 

#$FF 

F566- 

ADC 

#$EE 

F568- 

STA 

$D2 

F56A- 

STY 

$E2 


neue X-Koordinate, HByte 
minus alte X-Koordinate, HByte 
X-Differenz, HByte retten (.= FF, 0 oder 1) 
neue X-Koordinate >= alte X-Koordinate 
sonst Betrag der x-Differenz bestimmen 

Betrag der X-Differenz, IByte (mit dXL bezeichnet) 
wieder retten 

Betrag der x-Differenz, HByte (mit dXH bezeichnet) 

ins dXH-Register 

und ins Saldo-Register, HByte 

dXL 

ins d)CL-Register 

und ins Saldo-Register, EByte 

neue X-Koordinate, IByte 

übernehmen 

HByte übernehmen 

neue Y-Koordinate 

minus alte Y-Koordinate 

neue Y-Koordinate =< alte Y-Koordinate 

sonst negieren 

-1 - Betrag der Y-Differenz (mit -dY-1 bezeichnet) 
neue Y-Koordinate übernehmen 


Richtungsflaq und Schrittzähler setzen 

F56C- 

F56E- 

ROR 

SBC 

$D3 

C —> Bit7, im Richtungsflag also: Bit7=1 

Bit7=0 

F56F- 

F571- 

SBC 

TAX 

$D0 

- dXL = -dY -dXL -1 Bit6=l 

als Schrittzähler IByte Bit6=0 

F572- 

LEA 

#$BF 

-1 

F574- 

SBC 

$D1 

minus dXH ergibt -d!CH - 1 

F576- 

STA 

$1D 

als Schrittzähler HByte 

F578- 

LDY 

$E5 

Spaltenindex nach Y 

F57A- 

BCS 

$F581 

nun die Linie zeichnen 


nach oben 
nach unten 
nach links 
nach rechts 


Linie durch Trej^ie annähern 


Bewegung in X-Richtung 


F57C- 

ASL 


F57D- 

JSR 

$F465 

F580- 

SBC 


F581- 

LDA 

$D4 

F583- 

ADC 

$D2 

F585- 

STA 

$D4 

F587- 

HA 

$D5 

F589- 

SBC 

#$00 

F58B- 

STA 

$D5 


Bits —> Bit? (nach links oder nach rechts) 
Adresse für neuen Punkt bestimmen 

Saldo - dY -1 +1 (+1 wegen C=l) 

neuer Saldo, IByte 

HByte 


Punkt auf Bildschirm bringen 

Speicherzelle holen 


P58D- 

IBA 

($26),Y 

F58F- 

H» 

$1C 

F591- 

AND 

$30 

F593- 

B3R 

($26),Y 

F595- 

STA 

($26),Y 

F597- 

INX 


F598- 

BNE 

$F59E 

F59A- 

INC 

$1D 

F59C- 

BBQ 

$F600 


mit Fartanaske verknüpfen 
entscheidendes Bit herausholen 
und einfügen 
Byte abspeichem 

Schrittzähler dekranentieren (negativ!) 

HByte dekramentieren 
Enäpunltt erreicht, fertig 
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F59E- 

IDh 

$D3 

Richtungsflag 

F5A0- 

BCS 

$F57C 

Saldo positiv, deswegen Bewegung in X-Richtung 

Bewegung in Y-Richtung 

F5A2- 

JSR 

$F4D3 

Adresse für neuen Punkt bestinmen (nach Bit7 von : 

F5A5- 

diC 



F5A6- 

um 

$D4 

Saldo + Betrag der X-Differenz 

F5A8- 

ADC 

$D0 


F5AA- 

STA 

$D4 

neuer Saldo, L^te 

F5AC- 

EDA 

$D5 


P5AE- 

ADC 

$D1 


F5B0- 

BVC 

$F58B 

HByte eintragen, Punkt auf Bildschinn bringen 

F5B2- 

81 82 

84 88 

90 AO CO Bitmasken 

F5B9- 

IC 


Hilfsbyte für BIT 

Tabelle der Cosinuswerte für BOT 

F5BA- 

FF FE 

FA P4 

EC El D4 C5 B4 O....Pi/4 

F5C3- 

Al 8D 78 61 

49 31 18 ....Pi/2 

F5CA- 

EP = . 

-1 

Pi/2 

XY-Koordinaten aus RAM-Adresse berechnen 

I: 26, 

27 Zeilenadresse; E5 Spaltenindex; 30 Bitmaske 

0: E0,E1 X-Koordinate; E2 Y-Koordinate 

F5CB- 

U3A 

$26 

althält als einzelne Bits TO (Blockx40) 0 

F5CD- 

ASL 


TO —> C / Bit7 6 5 4 3 2 

F5CE- 

LDA 

$27 

enthält als einzelne Bits 0 Page G2 Gl GO 

F5D0- 

ÄND 

#$03 

T2 und TI herausholai 

F5D2- 

ROE 


TO hinten anfügen 

F5D3- 

C®A 

$26 

an Blockbits hinten anfügen 

F5D5- 

ASE 


um 3 Bit hochschieben 

F5D6- 

ASE 



P5D7- 

ASE 


ergibt Bl BO T2 Tl TO 0 

F5D8- 

STA 

$E2 

als Y-Koordinate 

FSDA- 

IDA 

$27 


P5DC- 

LSR 


um 2 Bit nach rechts schieben 

P5DD- 

ISR 



F5DE- 

AND 

#$07 

Bits 0,1,2 herausholai (= G2,G1,G0) 

F5E0- 

CRA 

$E2 

in Y-Koordinate einfügen 

F5E2- 

STA 

$E2 


P5E4- 

um 

$E5 

Spaltenindex 

P5E6- 

ASL 


X 2 

P5E7- 

ADC 

$E5 

plus Spaltenindex ergibt 3-fachen Wert 

P5E9- 

ASL 


X 2 

P5BA- 

TAX 


ergibt 6-fachen Wert 

F5EB- 

DEX 



F5EC- 

EDA 

$30 

Bitmaske 

F5EE-“ 

AND 

#$7F 

Bit7 löschen 

F5F0- 

INX 


X zählt mit 

F5F1- 

ISR 


verschieben 

F5F2- 

BNE 

$F5F0 

gesetztes Bit noch im Byte, weiterschieben 

F5F4- 

STA 

$E1 

X-Koordinate, HByte zunächst nullsetzen 

F5F6- 

IXA 


Bitspalte + 6 x Spaltenindex 

F5F7- 

CEC 



F5F8- 

ADC 

$E5 

plus Spaltenindex ergibt X-Koordinate, LByte 

F5FA- 

BCC 

$F5EE 


F5PC- 

INC 

$E1 

HByte auf 1 erhöhen, falls X-Koordinate > 255 

P5EE- 

STA 

$E0 

EByte eintragen 


0 0 







F600- RTS 


ERAW-Routine 


I: X,Y 

Zeiger auf SHAPE-Definition, Accu = ECff-Wert 

F601- 

STX 

$1A 

Zeiger eintragen 

F603- 

STY 

$1B 


Haipteinsprung 


F6Q5- 

TAX 


ROT-Wert retten 

F606- 

LSR 


Bits 4-7 —> Bits 0-3 

F607- 

ISR 



F608- 

ISR 



F609- 

ISR 



F60A- 

STA 

$D3 

als Quadrant (Anzahl rechter Winkel im Uhrzeigersinn) 

F60C- 

OXA 


Rot-Wert 

F60D- 

AND 

#$0F 

Bits 0-3 herausholen 

F60F- 

TAX 


ergibt Winkel innerhalb des Quadranten 

F610- 

IDY 

$F5BA,X 

zugehörigen Cosinuswert aus Tabelle holen 

F613- 

STY 

$D0 

und retten 

F615- 

BOR 

#$0F 

ergibt 15 - 'föbellenindex 

F617- 

TAX 



F618- 

IDY 

$F5BB,X 

Tabellenwert von 16 - Index ($F5BB!) 

F61B- 

INY 


ergibt Sinuswert 

F61C- 

STY 

$D2 

merken 

F61E- 

IDY 

$E5 

Spaltenindex holen 

F620- 

UK 

#$00 


F622- 

STX 

$EA 

Collision Counter nullsetzen 

F624- 

LDA 

(S1A,X) 

hole 1. Byte der Shape-Definition 

Shape-Amreisung durchführen 

F626- 

STA 

$D1 

Bits 0,1,2 aithält Shape-Anweisung 

F628- 

LDX 

#$80 


F62A- 

STX 

$D4 

Saldo-Register für Cosinus 

F62C- 

STX 

$D5 

und für Sinus initialisieren 

F62E- 

IDX 

$E7 

SCALE-Vfert ~> X als Zähler 

Verhältnis das Sin-/Cos-Werts bestimmt Linienrichtung 

F630- 

IXIA 

$D4 

Cosinus-Saldo 

F632- 

SBC 



F633- 

ADC 

$D0 

um Cosinus-Wert erhtäien 

F635- 

STA 

$D4 


F637- 

BCC 

$F63D 

kein Oberlauf 

F639- 

JSR 

$F4B3 

Punkt setzen, nächsten Punkt in Richtung der Shape- 

F63C- 

CLC 


Anweisung plus Quadrant bestimmen (= Nullrichtung) 

F63D- 

IDA 

$D5 

Sinus-Saldo 

F63F- 

ADC 

$D2 

um Sinus-Wert erh<äien 

F641- 

STA 

$D5 


F643- 

BOC 

$F648 

kein Überlauf 

F645- 

JSR 

$F4B4 

Punkt setzen, nächsten in Nullrichtung + 90' bestiitnven 

F648- 

DEX 


Zähler dekranentieren ($P4B4,C=l!) 

F649- 

BNE 

$F630 

\reiter mit dieser Shape-Anweisung 

F64B- 

IDA 

$D1 

Byte mit Shape-Anweisungen 

F64I>- 

ISR 


nächste Anweisung in Bits 3,4,5 —> Bits 0,1,2 

F64E- 

I£R 



F64F- 

IBR 



F650- 

BNE 

$F626 

Byte nicht 0, d.h. gültige Shape-Anweisung in Bit 0,1,2 

F652- 

INC 

$1A 

sonst Zeiger auf Shape-Definition erhöhen 

F654- 

ENE 

$F658 


F656- 

INC 

$1B 


F658- 

LDA 

($1A,X) 

und neues Byte mit Shape-Anweisungen holen 
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F65A- 

BNE 

$F626 

imgleich 0, d.h. Endbyte noch nicht erreicht 

F65C- 

RTS 


sonst fertig 

XERAW-Routine 



I: X,Y 

Zeiger auf Shape-Definition, Accu = ROT-Wert 

F65D- 

STX 

$1A 

Zeiger eintragen 

F65F- 

STZ 

$1B 


Haipteinsprung 


F661- 

TAX 


ROT-Wert retten 

F662- 

ISR 


Bits 4-7 —> Bits 0-3 

F663- 

lER 



F664- 

LSR 



F665- 

LSR 



F666- 

STA 

$D3 

als Quadrant (Anzahl rechter Winkel im Uhrzeigersinn) 

F668- 

IXA 


ROT-Wert 

F669- 

ÄND 

#$0F 

Bits 0-3 herausholen 

F66B- 

TAX 


ergibt Winkel innerhalb des Quadranten 

F66C- 

LDY 

$F5BA,X 

zugehörigen Cosinus-Vfert aus Tabelle holen 

F66F- 

STY 

$D0 

und trerken 

F671- 

EDR 

#$0F 

ergibt 15 - Tabellenindex 

F673- 

TÄX 



F674- 

LDY 

$F5BB,X 

Tabellenwert von 16 - Index ($F5BB!) 

F677- 

INY 


ergibt Sinus-Wert 

F678- 

STY 

$D2 

merken 

F67A- 

IDY 

$E5 

Spaltenindex holen 

F67C- 

LDX 

#$00 


F67E- 

STX 

$EA 

Coilision Ctounter nullsetzen 

F680- 

Ii2A 

($1A,X) 

hole 1. Etyte der Shape-Definition 

Shape-Anweisung durchführen 

F682- 

STA 

$D1 

Bits 0,1,2 enthalten Shape-Anweisung 

F684- 

LDX 

#$80 


F686- 

STX 

$D4 

Saldo-Register für Cosinus 

F688- 

STX 

$D5 

und für Sinus initialisieren 

F68A- 

LDX 

$E7 

SCALE-Wert —> X als Zähler 

Verhältnis des Sin-/Cos-Vferts bestimmt Linienrichtung 

F68C- 

UIA 

$D4 

Cosinus-Saldo 

F68E- 

SEC 



F68F- 

ADC 

$D0 

um Cosinus-Wert erhöhen 

F691- 

STA 

$D4 


F693- 

BCC 

$F699 

kein Oberlauf 

F695- 

JSR 

$F49C 

Punkt invertieren, nächsten in Richtung der Shape- 

F698- 

CLC 


Anweisung plus Quadrant bestimmen (= Nullrichtung) 

F699- 

Wk 

$D5 

Sinus-Saldo 

F69B- 

ADC 

$D2 

um Sinus-Wert erhöhen 

F69D- 

STA 

$D5 


F69F- 

BOC 

$F6A4 

kein Überlauf 

F6A1- 

JSR 

$F49D 

Punkt invert., nächsten in Nullrichtung + 90' bestimmen 

F6A4- 

DEX 


Zähler dekrementieren ($F49D,C=l!) 

F6A5- 

BNE 

$F68C 

weiter mit dieser Shape-Anweisung 

F6A7- 

rm 

$D1 

Byte mit Shape-Anweisungen 

F6A9- 

ISR 


nächste Anweisung in Bits 3,4,5 —> Bits 0,1,2 

F6AA- 

ISR 



F6AB- 

ISR 



F6AC- 

BNE 

$F682 

Byte nicht 0, d.h. gültige Shape-Anweisung in Bit 0,1,2 

F6AE- 

DSC 

$1A 

sonst Zeiger auf Shape-Definition erhöhen 

F6B0- 

BNE 

$F6B4 


F6B2- 

INC 

$1B 
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F6B4- 

Ilft 

($1A,X) 

und neues Byte mit Shape-Anweisungen holen 

F6B6- 

HQE 

$F682 

ungleich 0, d.h. Endbyte noch nicht erreicht 

F6B8- 

RTS 

. ■ . _ 

sonst fertig 

Parameter für HPIOT, DRÄW, XCRAW holen 

0: X-Koordinate in X,Y; 

Y-Koordinate in A = 9D 

F6B9- 

JSR 

$0367 

numerischen Ausdruck auswerten —> EACl 

F6BC- 

JSR 

$E752 

FACl in Integer (in 50,51) umwandeln (= X-Koordinate! 

F6BF- 

IDY 

$51 

und nach X,Y bringen 

F6C1- 

IDX 

$50 


F6C3- 

CPY 

#$01 

HByte mit 1 vergleichen 

F6C5- 

BCC 

$P6CD 

ok, X-Koordinate < 256 

F6C7- 

BNE 

$F6B6 

X-Koordinate > 511, —> ILLEGAL QUANTITY ERROR 

F6C9- 

CPX 

#$18 

LByte mit 24 vergleichen 

F6CB- 

flCS 

$F6B6 

X-Koordinate > 279, —> ILLEGAL QUANTITY ERROR 

F6CD- 

TXA 


sonst X-Koordinate auf Stack retten 

F6CE- 

FHA 



F6CF- 

TYA 



F6D0- 

PHA 



F6D1- 

Uä 

#$2C 

Ascii für Komma 

F6D3- 

JSR 

$DECO 

muß folgen, sonst SYNTAX ERROR 

F6D6- 

JSR 

$E6F8 

hole 1-Byte-Integer aus Programmtext —> X 

F6D9- 

CPX 

#$C0 

Y-Koordinate mit 192 vergleichen 

F6DB- 

BCS 

$F6B6 

Y-Koordinate > 191, —> ILLBSAL QUANTITY ERR® 

F6IX)- 

SOX 

$9D 

sonst Y-Koordinate nach 9D 

F6DF- 

PIA 


und X-Koordinate vom Stack nach X,Y bringen 

F6E0- 

TAY 



F6E1- 

PIA 



F6K2- 

TAX 



F6E3- 

IXIA 

$9D 

Y-Koordinate nach Accu, 

F6E5- 

RTS 


fertig 

F6E6- 

JMP 

$F206 

ILLB3AL QUANTITY ERROR ausgeben 


J^lesoft-Rc3Utine EDDIßR 


F6E9- 

JSR $E6F8 

hole l-Byte-Integer aus Programntext —> X 

F6EC- 

CPX #$08 

Farbcode mit 8 vergleichen 

F6EE- 

BCS $F6E6 

Farbcode > 7, —> ILLEGAL QUANTITY ERROR 

F6F0- 

LDA $F6F6,X 

Farbmaske aus Tabelle holen 

F6F3- 

STA $E4 

und eintragen 

F6F5- 

RTS 



Tabelle der Farbnasken 



F6F6- 

00 2A 

00000000 

00101010 

F6F8- 

55 7F 

01010101 

01111111 

F6EA- 

80 AA 

10000000 

10101010 

F6EC- 

D5 EF 

11010101 

11111111 


T^lesoft-Routine HPLOT 


F6FE- 

CMP 

#$a 

folgt Token für TO? 

F700- 

BEQ 

$F70F 

nein, vreiter 

F702- 

JSR 

$F6B9 

sonst Punkt-Koordinaten holen —> X,Y / A 

F705- 

JSR 

$F457 

RAM-Adresse berechnen, Punkt setzen 

F708- 

JSR 

$00B7 

hole Zeichen aus Programmtext 

F70B- 

CMP 

#$a 

Token für TO? 

F70D- 

BKE 

$F6F5 

nein, fertig 

F70F- 

JSR 

$DEC0 

sonst neues Zeichen holen 
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F712- 

JSR 

$F6B9 

Punkt-Koordinaten holen —> x,Y / A 

F715- 

STY 

$9D 

X-Koordinate nach A,X und Y-Koordinate nach Y bringen 

F717- 

TAY 


F718- 

TXA 



F719- 

LDX 

$9D 


F71B- 

JSR 

$F53A 

Linie zeichnen 

F71E- 

JMP 

$F708' 

weiter mit nächster Linie oder fertig 


hole Paramster für I®AW, XIKaw 

0: 1A,1B zeigt auf Shape-Definition, ROT-Wsrt im Accu 


F72D- 

JSR 

$E6F8 

1-Byte-lnt^er aus Progranmtext holen —> X 


F730- 

LDA 

$E8 

Zeiger auf Kopf des Shape-Tables 


F732- 

sia 

$ia 

nach 1A,1B bringen 


F734- 

LDA 

$E9 



F736- 

STA 

$1B 


1 1 

F738- 

TXA 


Shape-Nunmer 

|l N 

F739- 

LDX 

#$00 


j 

F73B- 

CMP 

($1A,X) 

mit Anzahl der Shape-Definitionen im Table vergleichen 

J 

F73D- 

BBQ 

$P741 

gleich, ok 

' 

F73F- 

BCS 

$F6K 

zu groß, —> ILLEGAL QUANTITY EKROR 


F741- 

ASL 


verdoppeln 


F742- 

BOC 

$F747 

Shape-Niraner < 128 


P744- 

ItC 

$1B 

sonst Zeiger um 256 erheben 

1 

F746- 

OiC 



1 

F747- 

TAY 


damit (LA),Y Zeiger auf Abstands-Tabelle 


F748- 

LDA 

($1A),Y 

Abstand der Shape-Definition vom Anfang des Shapetable 


F74A- 

ADC 

$1A 

zum Anfang des Shapetables addieren 

' 

F74C- 

TAX 




F74D- 

INY 




F74B- 

UDA 

($1A),Y 

Hbyte addieren 

' 

F750- 

ADC 

$E9 



F752- 

STA 

$1B 

Zeiger auf richtige Shape-Definition eintragen 

' 

F754- 

STX 

$1A 



F756- 

JSR 

$00B7 

hole Zeichen 


F759- 

CMP 

#$C5 

Token für AT? 

1 , 

F75B- 

BNE 

$F766 

kein Startpunkt angegeben 


F75D- 

JSR 

$DBC0 

sonst neues Zeichen holen 


F760- 

JSR 

$F6B9 

Koordinaten des Startpunktes holen 


F763- 

JSR 

$F411 

RAM-Adresse für Startpunkt bestimmen 


F766- 

LDA 

SF9 

ROT-Vfert laden 


F768- 

RTS 



,1 

Aj^ilesoft-Routine DRAW 


1 

F769- 

JSR 

$F72D 

I»AW-Parameter holen (s.d.) 


F76C- 

JMP 

$F605 

nE!AW-Routine ausführen 



^^lesoft-Routine XERAW 


Applesoft-Routine ROT= 

F721- JSR $E6F8 hole 1-Byte-Integer aus Prograrmitext —> X 

F724- STX $F9 als ROT-Wert abspeichem 

F726- FIS 


Applesoft-Routine SCALE= 

F727- JSR $E6F8 hole 1-Byte-Integer aus Progranmtext —> X 

F72A- SIX $E7 als SCÄLE-Vfert abspeichern 

F72C- RTS 
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F76F- 

jai 

$F72D 

DRAW-Parameter holen (s.d.) 

F772- 

JMP 

$F661 

XERAW-Routine atisführen 

J^lesoft-Routine SHICMD 

F775- 

LDA 

#$00 


F777- 

STA 

$3D 

Zeiger 3C,3D auf $0050 setzen. 

F779- 

STA 

$3F 

Zeiger 3E,3F auf $0051 setzen 

F77B- 

IDZ 

#$50 


F77D- 

STY 

$3C 


F77F- 

IlW 



F780- 

STY 

$3E 


P782- 

JSR 

$FEFD 

Monitor-Routine READ liest Länge des Shapetables 

F785- 

OC 


von Band nach 50,51 

F786- 

LDA 

$73 

HIMEM 

F788- 

TAX 



F789- 

DEX 


ndnus 1 

F78ä- 

STX 

$3E 

nach 3E,3 f als Endadresse für Laderoutine 

F78C- 

SBC 

$50 

minus Länge des Shapetable 

F78E- 

EHA 


retten 

F78F- 

lilA 

$74 

HBytes bestininen 

F791- 

TAY 



F792- 

INX 



F793- 

BNE 

$F796 


F795- 

Dm 



F796- 

STY 

$3F 


F798- 

SBC 

$51 

minus Länge ergibt Zeiger auf Table-Anfang, HByte 

F79ä- 

CMP 

$6E 

mit Feldvariablen-Errie +1 vergleichen 

F79C- 

BCC 

$F7A0 

Platz reicht nicht aus, SYNTAX ERROR 

F79E- 

BNE 

$F7A3 

Platz reicht aus, ok 

F7A0- 

OMP 

$D410 

SYNTAX EE!RDR ausgeben 

F7A3- 

STA 

$74 

Shapetable-Anfang als neues HIMEM 

F7ä5- 

STA 

$70 

und als Anfang des Stringbereichs eintragen 

F7A7- 

STA 

$3D 

sowie als Anfangsadresse für die Laderoutine 

F7A9- 

STA 

$E9 

und als Zeiger auf Anfang des Shapetables 

F7AB- 

HA 


Shapetable-Anfang, LByte 

F7AC- 

STA 

$E8 

jeweils eintragen 

F7AE- 

STA 

$73 


F7B0- 

STA 

$6F 


F7B2- 

STA 

$3C 


F7B4- 

JSR 

$FCFA 

Mcmitor-Routine lädt Shape-Table van Band in den 

F7B7- 

IDA 

#$03 

angegebenen Bereich 

F7B9- 

OMP 

$FF02 



setze Mcmitor-Register für STORE / RBCALL 
I: Länge der Feldvariablen in 50,51 
Zeiger auf Variablenkopf in 9B,9C 


F7BC- 

P7BD- 

diC 

IDA 

$9B 

Zeiger auf Variablenkopf 

F7HF- 

ADC 

$50 

plus Variablenlänge 

F7C1- 

STA 

$3E 

ins Bereichsende-Register 3E,3F 

F7C3- 

LDA 

$9C 


F7C5- 

ADC 

$51 


F7C7- 

STA 

$3F 


F7C9- 

LDY 

#$04 


F7CB- 

LDA 

($9B),Y 

Zeiger auf Anzahl der Dimensionen des Feldes 

F7CD- 

JSR 

$E0EF 

Zeiger auf 1. Datenb/te nach 94,95 bringen 

F7D0- 

IDA 

$94 

Zeiger auf 1. Datenbyte 

F7D2- 

STA 

$3C 

ins Bereichsanfang-Register 3C,3D 

F7D4- 

IDA 

$95 
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F7D6- 

STA 

$3D 


F7D8- 

RTS, 



suche Feld für STORE 

/ RBCÄLL 

F7D9- 

LDA 

#$40 


F7DB- 

STA 

$14 

STORE-Flag setzen 

F7DD- 

JSR 

$EfFE3 

angegebene Feldvariable suchen 

F7E0- 

LDA 

#$00 


F7E2- 

STA 

$14 

STORE-Flag löschen 

F7E4- 

JMP 

$D8F0 

setze Monitor-Register für Längendaten 


Applesoft-Routine HPAB 


F7E7- 

JSR 

$E6F8 

hole 1-Byte-Integer aus Programntext —> X 

F7EA- 

DEX 


1. Spalte hat Spaltennumner 0 

F7EB- 

TXA 


horizontale Cursorposition 

F7H:- 

CMP 

#$28 

mit 40 vergleichen 

F7EE- 

BCC 

$F7FA 

ok, kleiner, als Cursor-Spalte eintragen 

F7F0- 

SBC 

#$28 

sonst 40 subtrahieren 

F7F2- 

EHA 


Ergebnis retten 

F7F3- 

JSR 

$DAFB 

Zeilenvorschub auslösen 

F7F6- 

PLA 


verbleibender Abstand 

F7F7- 

JMP 

$F7EC 

veitere Zeilenvorschübe oder fertig 

F7EA- 

STA 

$24 

Cursor-Spalte eintragen { = Eingabe -1 mod 40) 

F7FC- 

RTS 



F7FD- 

CB D2 D7 

??? 


ab hier folgt das Manitor-RCM 
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Übersicht über die ECM-Houtinen, alphabetisch sortiert 

EEfiF ABS, Betragsfunktion 

EFSS AND, logische Ond-Verknüpfimg 

E6H5 ASC, laringt Ascii-Vfert des ersten Zeichens 

F09E . ATN, Arcustangens-Funktion 

ED7B Auswertung eines beliebigen Ausdrucks, Unterprogranin 
EFOC Auswertung von Punktionen 

F1D5 CALL, Maschinenprogranm-Aufruf 

FlOB CHRGEP-Routine 

D697 CHRGET-Zeiger auf Prograimistart -1 setzen, ünterprogramn 

E646 CHR$, wandelt Ascii-Kode in Stringzeichen um 

D66A CLEAR, löscht alle Variablen 

F24F OOIOR, Farbe für LdRes-Grafik wählen 

D896 CONT, unterbrochenes Programm fortführen 

EFEA OOS, Cosinus-Funktion 

E313 DEF, Funktion definieren 

F331 DEL, Bereich in Progranmtext löschen 

DFD9 DIM, Feldvariable dimensionieren 

F769 £RAW, Shape darstellen 

F605 DRAM, Unterprogranm 

DB3A Druckroutine für Strings, Unterprogramm 

DB57 Druckroutine für einzelne Zeichen, önterprogranm 

D870 END, progrannende 

EF09 EXP, Exponential-Funktion 

EBF2 EACl in Integer umwandeln, Unterprogranm 

E752 FACl in Integer umwandeln und nach 50,51 bringen, Unterprogranm 

ED34 FACl in Zahlenstring umwandeln, Unterprogranm 

EB63 EACl nach FAC2 übertragen, Unterprogranm 

EB2B EACl nach (X,Y) übertragen, Unterprogramm 

EB72 FACl runden, Unterprogranm 

EBB2 EACl vergleichen mit (Ä,Y), Unterprogramm 

EA39 3 FACl = EACl * 10, Unterprogranm 

EA55 »EACl = FACl / 10, Unterprogranm 

E7A0 “ FACl = EACl +0.5, Unterprogranm 

E7C6 OFACl = EAC2 + FACl, Unterprogranm 

E7AA »EACl = EAC2 - EACl, »terprogranm 

E987 »FACl = EAC2 * FACl, Unterprogranm 

EA69 ® EACl = FAC2 / FACl, Unterprogranm 

EE97 EACl = FAC2 * FACl, Unterprogranm 

E7BE FACl = (A,Y) + FACl, Unteiprogranm 

E7A7 FACl = (A.Y) - EACl, Unterprogramm 

E97F FACl = (A,Y) * EACl, Unterprogramm 

EA66 EACl = (A,Y) / FACl, Unterprogranm 

EB53 FAC2 nach EACl übertragen, Unterprogranm 

EAF9 (A,Y) nach FACl übertragen, Unterprogranm 

D412 Fehlermeldungen behandeln 

F280 FIASH, bewirkt blinkende Bildschirmausgabe 

E354 FN auswerten, Unterprogranm 

D766 POR, Schleife definieren 

E2DE EEffi, bringt freien Speicherplatz 

E484 Garbage Collection Routine, Unterprogranm 

DBAO GET, Eingabe eines Zeichens 

D921 GOSUB, Basic-Unterprogranm aufrufen 

D93E GOTO, unbedingter Sprung 

F2E9 GOTO nach ONERR, zur Fehlerbehandlungsroutine 
F390 CK, LcRes-Grafikmodus wählen 

F457 Grafikpunkt in HiRes-Grafik setzen, Unterprogranm 

F6E9 HCX)L0R, Farbe für HiRes-Grafik wählen 

F3E3 HGR, HiRes-Grafikmodus, Pagel wählen 

F3D8 H3R2, HiRes-Grafikmodus, Page2 wählen 

F286 HIMEM:, Ende des benutzbaren RAM definieren 
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F232 HLIN, horizcxitale Linie in LoRes-Grafik zeichnen 

D52C hole eine Befehlszeile, Onterprogranm 

D553 hole einzelnes Eingabezeichen, aiterprogramm 

DE60 hole Operand aus Progranmtext, Unterprograram 

F72D hole Paraiteter für ERAWAERAW, Onterprogramm 

F209 hole ParaitEter für HLIN/VLIN, ISiterprogranm 

F6B9 hole Paraitieter für HPLOT, ERäwABRäW, Unterprogramm 

FIFC hole Paraiteter für LoRes-Grafik, Unterprogramm 

DED5 hole Variablenwert, Unterprogramm 

DAOC hole Zeilennummer aus Prograimntext, Unterprogramm 

E6F5 hole 1-Byte-Integer aus Progranmtext, Unterprogranm 

E746 hole 2-Byte-Integer und 1-Byte-Integer, Unterprogramm 

F6FE HPLOT, Punkt oder Linie in HiRes-Grafik zeichnen 

F7E7 HTAB, Spaltentabulator 

D9C9 IF, bedingte Anweisung 

DBB2 INPUT, Eingaberoutine 

EC23 INT, Ganzzahlfunktion 

E2F2 Integer (A,Y) als FP-Konstante in EACl bringen, Unterprogramm 

D7D2 Interpreter-Hatptschleife 

F277 INVERSE, bewirkt inverse Bildschiimausgabe 

FIDE IN#, Eingabekanal wählen 

F128 Kaltstart 

E65A LEFT$, bringt linken Teilstring 

E6D6 LEN, bringt Stringlänge 

DA46 lET, Variablenzuweisung 

F53Ä Linie in HiRes-Grafik zeichnen, Unberprogramra 

D6A5 HST, Programm auflisten 

D8C9 IDAD, Programm von Cassette laden 

E941 IDG, natürlicher Logarithmus 

F2A6 ICMEM:, Anfang des Variablenbereichs wählen 

E691 MID$, bringt mittleren Teilstring 

D8P0 Monitorregister für Längendaten setzen, Unterprogramn 

D901 Monitorregister für Prograimtext setzen, Unterprogranm 

F7BC Mcaiitorregister für STORE/KBCALL setzen, Unterprogranm 

E2AD Multiplikation (16Bit), Unterprogranm 

D649 NEW, Programm löschen 

DCF9 NEXT, Schleifenwiederholung 

F273 NORMAL, normale Bildschirmausgabe weilen 

DE98 NOT, logische Negation 

F26F NOTRACE, TSACE-Modus abschalten 

D9EC ON, bedingter Sprung 

F2CB ONEER, F^lerbehandlungsroutine definieren 

DF4F C®, logische Oder-Verknüpfung 

IFCD POL, Stellung der Paddies abfragen 

E764 PEEK, Inhalt einer Speicherzelle abfragen 

F225 PLOT, Punkt in LcRes-Grafik zeichnen 

E77B POKE, Inhalt einer Speicherzelle verändern 

EF72 Polynom auswerten, Unterprogramm 

EF5C Polynom (ungerade) auswerten, Unterprogranm 

D96B POP, RETURN-Adresse vom Stack entfernen 

E2EF POS, bringt horizontale Cursorposition 

DAD5 PRINT, Ausgaberoutine 

D45C Progranmzeile in Progranmtext einfügen 

D559 Progranmzeile )todieren (Token ersetzen Keywords), Unterprogranm 

D3E3 prüfe freien Speicherplatz, Unterprogranm 

DD6A prüfe, ob Ausdruck nunerische ist, Unterprogranm 

0060 prüfe, ob Stringausdruck, Unterprogramm 

D3D6 prüfe Platz auf Stack, Unterprogranm 

E07D prüfe Zeichen auf Buchstabe, Unterprogranm 

FIES PR#, Ausgabekanal wählen 

F465 RAM-Ädresse für horizontalen Nachbarpunlot bestimmen, unterprogranm 
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F4D3 

F5CB 

I®E2 

F3BC 

D9DC 

D849 

F318 

D96B 

E686 

EFAE 

F721 

D912 

D8B0 

F727 

DEP9 

EB90 

F4B3 

F49C 

F775 

EFPl 

F262 

D39A 

EE8D 

D683 

D86E 

F39F 

E5FD 

E5D4 

E452 

E3E7 

DA7A 

E597 

E3C5 

F7D9 

D365 

D9A3 

D61A 

ra’E3 

D9A5 

F03A 

F399 

F26D 

E707 

nF65 

F241 

EB82 

F256 

E784 

D43C 

F76F 

F661 

F411 

IC4A 


RAM-Adresse für vertikalen Nachbarpunkt bestimmen, Unterprogrartm 

RAM-Adresse in XY-Koordinaten unwandeln, Unterprogranm 

READ, Daten aus Prograirmtext holen 

RBCALL, Feldvariable von Cassette laden 

REM, Banerkung im Programmtext 

RESIDRE, DATA-Zeiger auf Anfang zurifcksetzen 

RESUME, Progranmausführung nach Fehlerbehandlung vdeder aufnehmen 

RETURN, Rücksprung van Diterprogramn 

RI(3n'$, bringt rechten Teilstring 

RND, Zufallszahl erzeugen 

ROT=, Drehwinkel für Shape wählen 

RUN, Progranm ausführen 

SAVE, Progranm auf Cassette speichern 

9CÄLE=, Vergrößerungsfaktor für Shape wählen 

SCRN, bringt Farbkode des angesprochenen LcRes-Grafikpunkts 

SGN, Varzeichenfunktion 

Shape-Anweisung für EHAW durchführen, Unterprogranm 
Shape-Anweisung für XERAW durchführen, Unterprogranm 
SHIßAD, Shape von Cassette laden 
SIN, Sinus-Funktion 

SPEED, Ausführungsgeschwindigkeit wählen 

Speicherblock verschieben, Unterprogranm 

SQR, Wurzelfunktion 

Stack initialisieren, Unterprogranm 

STOP, Progranm unterbrechen 

STORE, Feldvariable auf Cassette speichern 

String, der nicht mehr benötigt wird, entfernen; Unterprogranm 
String kopieren, Unterprogranm 

Stringbereich für neuen String vorbereiten, Unterprogranm 

Stringdeskriptor bestimmen, Unterprograitm 

Stringdeskriptor in Variable eintragen 

Strings verketten 

STR$, Zahl in String umwandeln 

suche Feldvariable für STORE/1®CALL, Unterprogranm 

Suche POR/NEXT-Parameter im Stack, Unterprogranm 

suche nächstes Trennzeichen, Unterprogranm 

suche Programmzeile, Unterprogranm 

suche Variable, Unterprogranm 

suche Zeilenende, Unterprogranm 

TAN, Tangens-Funktion 

TEXT, Bildschirmausgabe auf Texbnodus setzen 
IRACE, zeilennunmern ausgeführter Befehle auflisten 
VAL, String in Zahl umwandeln 
Vergleichsqperation durchführen, Unterprogranm 
VLIN, vertikale Linie in loRes-Grafik zeichnen 
Vorzeichen von EACl testen, Unterprogranm 
VTAB, Zeilentabulator 

WAIT, warten bis angegebene Speicherzelle Sollwert hat 
Warmstart 

XERAW, Shape zeichnen (dabei jeden Punkt invertieren) 

XERAW, Unterprogranm 

XY-Koordinaten in RAM-Adresse anrechnen, Unterprogranm 
Zahlenstring in FP-Konstante umwandeln, Unterprogramm 
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Snderungen bei den Modellen Ile und IIc 


Beim Ajple Ile wurden zwar Änderungen im Monitor-RCM vorgenoimen, 
im Bereich des Basic-Inberpreters jedoch nicht. Dies bedeutet, dass 
der vorliegende Katmentar uneingeschränkt für den Ile benutzt werden 
kann. 


Beim IIc jedoch wurden auch im Basic-Interpreter einige Stellen geändert. 
Da der IIc schon einen Diskdrive eingebaut hat, wurde auf ein Cassetten- 
hetriebssystem ganz verzichtet. Dadurch werden sämtliche Cassettenroutinen 
überflüssig. Dafür wurden vor allati LoRes-Grafikroutinen eingefügt, welche 
die LcRes-Befehle (HLIN etc.) auch im 80-Zeichen-Moäus erlauben. 
Nachfolgend sind sämtliche geänderten stellen aufgeführt. 


Änderungen in 

der Sprungtabelle; 

D034- 

F4 03 


SHIOAD (zeigt nun auf &-Vektor) 

dÖ4E- 

F4 03 


RBCALL 

D050- 

F4 03 


STORE 

Dok:- 

F4 03 


IDAD 

D06E- 

F4 03 


SAVE 

Änderungen in 

der Keyword-Kodierungsroutine; 

D56D- 

JSR 

$D8B5 

hole Zeichen aus Tastaturpuffer,akzeptiere 
Kleinbuchstaben 

D5ä8- 

JSR 

$D8B5 

dto 

D5BE- 

JSR 

$D8B0 

dto 

Dsk- 

JSR 

$D8B5 

dto 

DME- 

JSR 

$D8C3 

dto 

Änderungen in 

der UST-Routine: 

D6F9- 

JSR 

$D8D3 

drucke Leerzeichen, dann die Zeilennunmer 

0705- 

JSR 

$D8DD 

prüfe Cursorspalte (max.33/73 bei 40/80 Zeichen) 

D708- 

NDP 




Zeichen aus dem Tastaturpuffer holen 


D8B0- 

LDA 

$0201,X 

Originalzeichen aus Tastaturpuffer holen 

D8B3- 

BPL 

$D8C6 

springe inner 

D8B5- 

LDA 

$0E 

REM-Flag 

D8B7- 

BBQ 

kacF 

REM-Status, Originalzeichen holen 

D8B9- 

CMP 

#$22 

Text-Status? 

D8BB- 

BB2 

$D8CF 

ja, Originalzeichen holen 

D8BD- 

LDA 

$13 

DATA-Flag 

D8BF- 

CMP 

#$49 

gesetzt? 

D8ca.- 

BEQ 

$D8CF 

ja, Originalzeichen holen 

D8C3- 

LDA 

$0200,X 

hole Zeichen zur Onwandlung in Grossbuchstaben 

D8C6- 

HIP 


rette Z-Flag 

D8C7- 

CMP 

#$61 

Ascii für "a” 

D8C9- 

BCC 

$D8CD 

kein Kleinbuchstabe 

D8CB- 

AND 

#$5F 

sonst in Grossbuchstaben unwandeln 

D8CD- 

PLP 


Z-Flag wiederherstellen 

D8CE- 

RTS 


DSCF- 

IDA 

$0200,X 

Zeichen von Tastaturpuffer holen 
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D8D2- RIS 


Hilfsroutinen für IIST-Routine 


D8D3- 

HiA 


Zeilennuititier, HByte retten 

D8D4- 

im 

#$20 

Ascii für Leerzeichen 

D8D6- 

JSR 

$DB5C 

drucken 

D8D9- 

PIA 


gerettete Zeilennummer, HByte 

D8im- 

JSR 

$ED24 

Zeilennunmer drucken, fertig 

Listformat-Prüfung 


D8DD- 

im 

$24 

Cursorspalte 

D8re'- 

CMP 

#$21 

mit 33 vergleichen 

D8E1- 

BIT 

$C01P 

Bit7=l falls 80-Zeichen-MDdus 

D8E4- 

BPL 

$D8EB 

fertig 

D8E6- 

IDA 

$057B 

Cursorspalte bei 80-Zeichen-Modus 

D8E9- 

CMP 

#$49 

mit 73 vergleichen 

D8EB- 

RTS 



LcRes-Grafikmodus initialisieren 

DEEC- 

IDA 

$C050 

setze GRAPHICS 

D8EF- 

JSR 

$D8F7 

lösche LoRes-Grafikseite 

D8F2- 

IDA 

#$14 

oberer Textfensterrand in Zeile 20 

D8F4- 

JMP 

$FB4B 

Monitorroutine SETWND setzt Textfenster 

LcRes-Grafikseite löschen 

D8F7- 

IDY 

#$27 

löschen bis Grafikzeile 39 (d.h. bis Textzeile 19) 

D8F9- 

STY 

$2D 


D8FB- 

JSR 

$F3CB 

prüfe ob Double-LoRes (also 80-Zeichen-Fonnat) 

D8FE- 

IDA 

#$27 

rechter Rand = Spalte 39, falls Single-LORes 

D900- 

BCC 

$D903 

Single-LcRes Modus 

D902- 

ROL 


sonst rechter Rand = Spalte 79 

D903- 

TAY 


als Spaltenzeiger 

D904- 

LDA 

#$00 

CX)I/0R-Bybe für schwarz 

D906- 

STA 

$30 

eintragen 

D908- 

JSR 

$F78B 

LORes-Spalts löschen 

D90B- 

DEY 


nächste Spalte 

D90C- 

BPL 

$0904 

bis Spalte 0 erreicht ist 

D90E- 

RTS 



D90F- 

BRK 



D910- 

BBK 



D911- 

BRK 



iSnderungen in 

der IRINT-Routine 

DMDB- 

HEQ 

$DB19 

neuer Einsprung in TAB / SPC -Routine 

DAEO- 

BSQ 

$DB19 

dto 

Cursor auf nächsten 

Tabulator setzen 

DB03- 

JSR 

$D8DD 

(Cursorspalte prüfen 

DB06- 

BMI 

$DBll 

kleiner als 73 (80-Zei(dien-Modus) 

0308- 

CMP 

#$18 

sonst mit 24 vergleichen 

DBOA- 

BCC 

$DB11 

kleiner, also in selber Zeile bleiben 

EBOC- 

JSR 

$DAFB 

sonst CR ausgeben (neue Zeile) 

DBOF- 

mE 

$DB2F 

weiter mit neuem Zeichen (immer) 

DBll- 

ADC 

#$10 

nächstes Vielfaches von 16 bestimmen 

I»13- 

AND 

#$F0 


DB15- 

TAX 
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DB16- 

SBC 



DB17- 

BCS 

$DB25 

Cursor setzen 

TAB / 

SPC ausführen 


DB19- 

PHP 


C retten ( =0 bei SPC, =1 bei TAB 

DBIA- 

JSR 

$E6F5 

hole 8-Bit-Integer aus Programmtext 

DBID- 

CMP 

#$29 

folgendes Zeichen = ")" ? 

DBIF- 

BNE 

$DB83 

nein, SYNTAX ERROR 

DB21- 

PLP 


hole C-Flag 

DB22- 

BOC 

$DB2B 

SPC, Leerzeichen drucken 

DB24- 

DEX 


TAB-Wert 

DB25- 

JSR 

$F7CB 

aktuelle Cursorspalte subtrahieren 

rB28- 

. • « • 

von hier 

ab unverändert . 


Änderung in SCRN - Routine 

DF02- JSR $F7A6 bringt Farbcode des LcRes-Punktes 


Änderungen in LcRes-Parameter - Auswertungsroutine 


FIEF- 

CPX 

#$50 

Limit = 80 (statt 48) 

FIFD- 

CPX 

#$50 

dto 

F220- 

CPX 

#$50 

dto 


Änderungen in 

der PLOT 

- Routine 

F225- 

JSR 

$F1EC 

PLOT-Parameter aus Programntext holen 

F228- 

IDY 

$F0 

X-Koordinate 

F22A- 

JSR 

$F775 

muß kleiner als 40 bzw 80 sein (je nach Modus 

F22D- 

TXA 


Y-Koordinate 

F22E- 

JMP 

$F3F9 

setze lORes-Punkt 

F231- 

??? 




Änderungen in 

der HLIN 

- Routine 

F232- 

JSR 

$F209 

hole 3 Parameter aus Programmtext 

F235- 

IDY 

$2C 

X-Kbordinate des rechten Endes der Linie 

F237- 

JSR 

$F775 

muß kleiner als 40 bzw /80 sein (je nach Modus 

F23A- 

CPX 

#$30 

Y“Koordinate mit 48 ver^gleichen 

F23C- 

BCS 

$F206 

zu groß, —> ILLEGAL ÖtENTITY ERROR 

F23B- 

JMP 

$F796 

zur Darstellungsroutine 

Änderungen in 

der VLIN 

- Routine 

F241- 

JSR 

$F209 

hole 3 Parameter aus Programmtext 

F244- 

TXA 


X-Koordinate 

F245- 

TAY 



F246- 

JSR 

$F775 

muß kleiner als 40 bzw 80 sein (je nach Modus 

F249- 

liSV 

$F0 

Y-Koordinate des oberen Endes der Linie 

F24B- 

JMP 

$F783 

zur Darstellungsroutine 

P24B- 

BRK 



Änderungen in 

der Ql - 1 

Routine 

F390- 

U3A 

$C056 

setze IDRES 

F393- 

IDA 

$C053 

setze MDC 

F396- 

JMP 

$D8EC 

zur LoRes-Initialisierungsroutine 


LcRes-Punkt setzen 

I: Accu = Y-Koordinate, Y-Reg. = X-Koordinate 

F39F- ISR LdRes-Zeile halbieren —> Textzeile 
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F3A0- 

EHP 


C retten (C=l bei ungeraden Lores-Zeilen) 

F3al- 

JSR 

$F847 

Monitorroutine GBASCALC bringt Zeilenadresse 

F3A4- 

PLP 


hole C 

F3A5- 

LDA 

#$0F 

Maske für gerade LcRes-Zeilen 

F3ä7- 

BCC 

$F3AB 

ok, war gerade 

F3ä9- 

ADC 

#$E0 

#$E1 addieren (c=l!), ergibt #$F0 als Maske 

F3AB- 

STA 

$2E 

Maske eintragen 

F3AD- 

PHY 


Y auf Stack retten 

F3ÄE- 

JSR 

$F7BB 

Eage2 wählen, falls Double-Lc«es u. ungerade Spalte 

F3B1- 

BCC 


Eagel aktiv 

F3B3- 

PHX 


X auf Stack retten 

F3B4- 

LDA 

$30 

OOLOR-Byte 

F3B6- 

TAX 


in X nerken 

F3B7- 

ISR 


BitO —> C 

F3B8- 

TXA 


COIDR-Byte holen 

F3B9- 

ROR 


und korrigieren 

F3BA- 

SBC 


C=l, da Page2 - Status 

F3BB- 

STA 

$30 

ODIDR-Byte eintragen 

F3ßD- 

JSR 

$F80E 

Monitorroutine ELOTl setzt LcRes-Eunkt 

F3C0- 

Bcx: 

$F3C9 

Pagel - Status, fertig 

F3C2- 

im 

$C054 

auf Pagel zurückschalten 

F3C5- 

STX 

$30 

altes COLOR-Byte wiederherstellen 

F3C7- 

FIX 


gerettetes X zurück 

F3C8- 

CLC 



F3C9- 

PLY 


gerettetes Y zurück 

F3Ca- 

RTS 



t&ierprüfung 

der Screen-Softswitches 

F3CB- 

IDA 

$C079 

ÄN3 (Bit7 = 0 bei Double on) 

F3CE- 

BDR 

#$80 


F3D0- 

AND 

$C018 

und 80-STORE 

F3D3- 

AND 

$C01F 

und 80-CDLtMN, —> Bit7=l falls alles erfüllt ist 

F3D6- 

ASL 


Bit7 —> C 

F3D7- 

RTS 



prüfe. 

ob Spaltennunner zulässig 

F775- 

JSR 

$F3CB 

Double-LcRes aktiv? 

F778- 

BCS 

$F77E 

ja 

F77A- 

CPY 

$#$28 

Spalte kleiner als 40? 

F77C- 

BCS 

$F73F 

nein, —> ILLEGAL QUANTITY ERROR 

F77E- 

CPY 

#$50 

Spalte Bcleiner als 80? 

F780- 

BCS 

$F73F 

nein, —> ILLEGAL QUANTITY ERROR 

F782- 

RTS 



Darstellungsroutine für 

VtilN 

F783- 

PHA 


Y-Koordinate des oberen Endes der Linie retten 

F784- 

IDA 

$2D 

Y-Koordinate des unteren Endes der Linie 

F786- 

CMP 

#$30 

kleiner als 48? 

F788- 

ELA 



F789- 

BCS 

$F73F 

nein, —> ILLEGAL QUANTITY ERROR 

F78B- 

PHA 


Y-Koordinate rterken 

F78C- 

JSR 

$F39F 

LcRes-Eunkt setzen 

F78F- 

ELA 


aJctuelle Y-Koordinate holen 

F790- 

CME 

$2D 

unteres Ende der Linie erreicht ? 

F792- 

INC 


Koordinate für unteren Nachbarpunkt 

F793- 

BCC 

$F78B 

noch nicht fertig, vreiter 

F795- 

RTS 



Darstellungsroutine für 

HLIN 

F796- 

TXA 


Y-Koordinate 
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F797- 

im 

$F0 

X-Koordinate des linken Endes der Linie 

F799- 

JSR 

$F39F 

LoRes-Punkt setzen 

F79C- 

CPY 

$2C 

rechtes Ende der Linie erreicht ? 

F79E- 

BCS 

$F795 

ja, fertig 

F7A0- 

INY 


nächster Punkt 

F7A1- 

JSR 

$F3AD 

LöRes-Punkt setzen 

F7A4- 

BRA 

$F79C 

ireiter bis Linie fertig 

Hilfsroutine 

für SCRN 


F7A6- 

HiA 


Y-Kocnrdinate retten 

F7A7- 

JSR 

$F7BB 

richtige LoRes-Page adressieren 

F7AA- 

PIA 



F7AB- 

PHP 


C retten (C=l falls Page2 gewählt) 

F7AC- 

JSR 

$P871 

Mcaiitorroutine SCRN bringt den Farbcode 

F7AF- 

PLP 



F7B0- 

BCC 

$F7BA 

Pagel iiar gewählt, fertig 

F7B2- 

STA 

$C054 

zurück zu Pagel 

F7B5- 

CMP 

#$08 

I^bcode korrigieren 

F7B7- 

ASL 



F7B8- 

ÄND 

#$0F 

gültige Bits maskieren 

F7BA- 

RTS 




gültige ]jc»es-Page auswählen 


F7BB- 

JSR 

$F3CB 

Screen-Softswitches prüfen 

F7BE- 

BCC 

$F7CA 

nicht Dauble-LcRes 

P7C0- 

TYA 


X-Koordinate 

F7C1- 

EDR 

#$01 

BitO invertieren 

F7C3- 

ISR 


Koordinate halbieren, BitO —> C 

F7C4- 

TAY 


korrigierte Koordinate zurück nach Y 
X-Koordinate war gerade, fertig 

F7C5- 

BCC 

$P7CA 

F7C7- 

LDA 

$C055 

sonst Page2 anwählen 

F7CA- 

BOB 



Hilfsroutine 

für PRINT 


F7CB- 

TXA 


Tabulatorspalte 

F70C- 

BIT 

$C01F 

80-Zeichen-MDäus ? 

F7CF- 

BMI 

$F7E3 

ja 

F7D1- 

BIT 

$2485 

—> F7D2- STA $24 

F7D4- 

SEE 



F7D5- 

TXA 



F7D6- 

SBC 

$24 

Cursorspalte (40Z-Modus) subtrahieren 

F7D8- 

RTS 



Suche Feldvariable (z.B. für Store / Recall) 

F7D9- 

IDA 

#$40 


F7DB- 

STA 

$14 

STORE-Flag setzen 

F7DD- 

JSR 

$0FE3 

angegebene Feldvariable suchen 

F7E0- 

STZ 

$14 

STORE-Flag löschen 

F7E2- 

RTS 




Rest von F7CB ff 

P7E3- SBC $057B Cursorspalte (80Z-Modus) subtrahieren 
F7E6- RIB 


ftiderungen in der HTAB - Routine 

F7E7- JSR SE6F8 1-Byte-Integer aus Prograimitext holen —> X 
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F7Ea- 

DEX 



F7EB- 

im 

#$28 

40 

F7ID- 

CMP 

$21 

mit der Breite des Bildschirmfensters vergleichen 

F7EF“ 

BCS 

$F7F3 

Breite =< 40 

F7F1- 

IJDA 

$21 

Breite 

F7F3- 

JSR 

$F7D2 

HTAB-Position minus Accu 

F7F6- 

SIX 

$24 

vorläufige Curscarspalte 

F7F8- 

BCC 

$F7D8 

HTAB-Position < rechter Bildschirmrand, fertig 

F7FA- 

TAX 


sonst noch verbliebenen Abstand nerken 

F7FB- 

JSR 

$naFB 

Zeilenvorschub 

F7FE- 

BRA 

$F7EB 

vielter 
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